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内 容 简 介 


林 书 系统 地 介绍 MATLAB 7.0 的 混合 编程 方法 和 技巧 . 全 书 共 分 为 13 章 。 第 1 章 和 第 2 章 介 
绍 MATLAB 的 基础 知识 ， 第 3 章 简要 介绍 MATLAB 混合 编 称 ， 第 4 章 至 第 9 章 分 别 介绍 几 种 典 却 的 
混合 编程 方法 ， 包 括 CCMEX、MATLAB3 引擎 、MAT 数据 文件 共享 、Mideva、Matrix<LIB> 和 Adq-in。 
第 10 塌 、 第 11 章 介 绍 MATLAB 与 Delphi 和 Excel 的 混 襄 编程 。 第 12 章 介绍 MATLAB COM Builder， 
第 13 章 以 图 像 处 理 为 例 介 绍 了 一 个 综合 应 用 实例 。 

本 书 按 混合 编程 的 具 性 方法 进行 运 辑 编排 ， 自 始 公 终 用 实例 描述 ， 每 章 着 重 渭 述 各 种 混合 编程 方 
法 的 实质 和 要 点 ， 回 时 守 插 了 作者 事 年 使 用 MATLAB 的 经 验 和 体会 。 本 书 既 适合 初学 者 自学 ， 也 适用 
于 高 级 MATLAB 用 户 ， 下 作为 高 等 数学 ， 计 算 机 、 电 子 下 程 、 数 值 分 析 、 信 息 工程 等 课程 的 教学 参考 
革 ， 也 可 供 上 述 领域 的 科研 工作 者 驳 兰 。 

本 书 所 附 光 表 内 容 详 尽 、 实 例 丰 富 ， 包含 MATLAB 实例 的 源 文 件 、 函数 /命令 和 注解 以 及 程序 实例 。 
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了 咱 


前 


MATLAB 是 美国 MathWorks 公司 开发 的 高 性 能 的 科学 与 工程 计算 软件 。 它 在 数值 计 
算 、 自 动 控 制 、 信 和 号 处 理 、 神 经 网 络 、 优 化 计算 、 小 波 分 析 、 图 像 处 理 等 领域 有 着 广泛 
的 用 途 . 近年 来 , MATLAB 在 国内 高 等 院 校 、 科研 院 所 的 应 用 逐渐 普及 ， 成 为 广大 科研 、 
工程 技术 人 员 必 备 的 工具 之 一 。 

MATLAB 有 具有 和 拢 阵 和 数组 运算 方便 、 编 程 效率 极 高 、 易 学 努 用 、 可 扩充 性 强 和 移植 
性 好 等 优点 ， 俗 称 为 “草稿 纸 式 的 科学 计算 语言 ">。 它 把 工程 技术 人 员 从 烦琐 的 程序 代码 
起 解放 出 来 可 以 快速 地 验证 自己 的 模型 和 算法 ,然而 ， MATLAB 作为 一 种 解释 性 语 阁 ， 

C 语言 等 其 他 高 级 语言 相 比 较 ， 上 有 不 同 于 其 他 语言 的 特点 . 尽管 MATLAB 的 版 木 不 
断 开 级 ， 功能 不 斯 增加 ， 但 述 是 存在 着 以 上 一 些 缺 点 ; 

e 运行 效率 较 低 ， 执 行 相同 功能 的 代码 运行 时 间 较 长 ; 

e  M 文件 为 文本 文件 ， 文 本 编辑 器 可 直接 打开 ， 不 利于 算法 保密 ; 

s 访问 硬件 能 力 相 对 较 差 ， 图 形 肝 户 界面 功能 也 不 够 灵活 。 

MATLAB 的 上 述 缺 点 限制 了 它 不 能 作为 通用 的 软件 开发 平台 .。 常见 的 通用 编程 平台 

(如 Wisual C++、Visual Basic、Delpti 和 Fortran 等 ) 功能 强大 且 有 灵活 , 但 编程 效率 较 低 ， 
尤其 是 当 需 要 快 速 验 证 算法 时 。 因 此 ， 在 实际 的 工程 度 用 中 ， 需 要 发 挥 MATLAB 和 其 
他 高 级 语言 各 自 的 优势 ， 以 降低 开发 难产 ， 缩 短 编程 时 间 。 幸 运 的 是 ，MATLAB 的 应 用 
程序 接口 (API) 为 实现 MATILAB 与 Visual C++ 等 通用 编程 平台 的 流 合 编程 提供 了 可 能 。 
MAITLAB Compiler (编译 器 ) 提供 了 将 MATLAB 语言 编写 的 M 文件 自动 转换 为 袜 或 
C++ 文件 的 能 力 ， 支 持 用 户 进行 独立 的 应 用 开发 ， 结 合 MathwWorks 提供 的 CAC++ 数 学 库 
和 图 形 库 ， 用 户 可 以 利用 MATLAB 快速 名 开 发 出 功能 强大 的 独立 应 用 。 

本 书 针 对 最 新 的 版 本 MATLAB 7.0， 介 绍 它 与 其 他 高 级 语言 的 混合 编程 技术 。 全书 
共 分 为 13 章 和 2 个 附录 ; 

第 1 章 MATLAS 概述 ， 主 要 介绍 MATLAB 的 发 展 历程 、 语 襄 特 点 及 MATLAB 7.0 
版 本 相对 于 以 前 版 本 所 具有 的 一 些 新 功能 。 

第 2 章 MAILAB 程序 设计 及 代码 优化 ， 简 要 介绍 MATLAB 的 变量 和 表达 式 、 流 程 
控制 、 编 程 规范 等 程序 设计 基础 知识 ， 还 对 编程 过 程 中 提高 M 文件 执行 将 率 的 一 些 技术 
进行 了 详细 的 介绍 。 

第 上 章 、 第 2 章 的 主要 目的 是 帮助 MAITLAB 初学 者 对 MATLAB 有 一 个 整体 的 了 
解 ， 用 过 MAILAB 的 读者 可 以 跳 过 这 两 章 。 但 是 ， 第 2.8 节 “ 提 高 M 文 作 执 行 效率 的 拉 
巧 ” 具 有 较 强 的 工程 实际 意义 ， 建 议 读者 阅读 。 

第 3 章 对 MATLAB 的 混合 编码 进行 了 简要 介绍 ,包括 混合 编码 的 出 发 点 、 分 类 ， 以 
及 上 几 种 常见 的 泥 合 编程 方法 。 

第 4 章 对 CCMEX 进行 了 介绍 , 包括 MEX 文件 系统 的 配置 、 结构、 运行 、Visual C++ 
环境 下 MEX 文件 的 调试 和 实例 ， 

















第 5 章 介 绍 通过 MATLAB 引擎 〈《Engine) 实现 混合 编程 ， 包 括 引擎 库 函 数 、 环 境 配 
置 、 引 整 类 的 封 蒜 及 实例 。 

第 6 章 对 通过 MAT 文件 实现 MATLAB 和 其 他 应 用 程序 的 数据 共享 进行 了 介绍 ， 包 
括 MAT 文件 篇 介 、 操 作 MAT 文件 的 MATLAB API 函数 、Visual C++ 调用 MAT 叶 的 环 
坊 设 置 以 及 实例 。 

第 ? 章 介绍 通过 Mideva 实现 洪 合 编程 的 方法 ， 包 括 Mideva 安装 、Mideva 环境 干 M 
文件 向 EXE 或 DLL 文件 的 转化 、Visual C++ 址 境 下 道 过 Midqeva 实现 混合 编程 的 环境 配 
置 方 法 及 实例 。 

第 8 章 对 利用 Matrix<LIB> 数 学 函数 库 实 现 混合 编程 进行 了 介绍 。 

第 9 章 介绍 利用 MATELAB 6.x 版 本 特有 的 Add-ipn 插件 实现 混合 编程 ， 包 括 安 装 、 坏 
境 配 置 以 及 应 用 实例 ， 

第 10 章 对 MATILAB 和 Delphi 的 混合 编程 进行 了 介绍 ， 包 括 自动 化 〈ActivyeX)、 引 
欧 、 动 态 链 接 库 以 及 外 部 调用 等 方式 。 

第 11 章 简要 介绍 MATLAB 和 Excel 的 混 人 台 编 程 ， 包 括 Excel Link 和 MAILAB 
Builder for Excel 两 种 方式 。 

第 12 章 介 绍 MATILAB COM Builder， 包 括 它 的 安装 、CAC++ 编 译 器 的 配置 以 发 在 
Visual CH+ 中 使 用 MATLAB COM Builder 生成 的 组 件 实例 ， 

第 13 章 介绍 综合 应 用 实例 ， 以 一 个 简易 的 图 像 处 理工 具 软 件 为 例 综 合 本 书 的 知识 。 

附录 A 和 附录 卫 中 分 别 列举 了 常见 的 免费 MATLAB 工具 箱 以 及 MATLAB 站 点 。 

本 书 第 3~-9 章 以 及 第 11 章 和 第 12 章 由 杨 高 波 编号， 第 1 章 、 第 2 章 、 第 10 章 和 
第 13 章 由 元 波 编写 , 由 杨 高 波 统 稿 。 全 书 由 湖南 大 学 计算 机 与 通信 学 院 李 位 发 教授 主 审 。 
在 本 书 的 编写 过 程 中 ， 陈 薇 薇 、 雷 靖 和 李 清 畅 等 硕士 生 协 助 完 成 了 文字 核对 工作 ， 在 此 
表示 衷心 的 感谢 。 

本 书 编著 者 是 国内 'MATLAB 最 早 的 用 户 之 一 ，1998 年 就 开始 在 科研 工作 中 使 用 ， 
特别 是 在 《计算 机 世 腊 》 上 发 表 了 几 篇 关于 MATLAB 混合 编程 的 论文 后 ， 经 常 有 网 友 
通过 邮件 咨询 此 方面 的 知识 ， 本 书 也 正 是 在 他 们 的 要 求 和 鼓励 下 写成 的 。 只 要 认真 阅读 
并 在 计算 机 上 逐个 调试 书 中 的 例 程 ( 本 书 所 有 例 程 的 源 代 码 都 可 以 在 只 带 的 光 季 中 找 他， 
按 章节 划分 目录 存储 )， 读 者 终 会 有 所 收获 。 由 于 编著 者 水 平 有 限 ， 错 误 和 不 足 之 处 在 记 
难 人 能 ， 敬 请 读者 多 提 宝 贵 意见 ， 以 便 继 续 完 善 ， 共 同 进步 。 如 果 您 对 书 的 内 容 有 任何 疑 
问 ， 清 与 编著 者 讨论 或 批评 指正 。 联 系 方式 如 下 : 

杨 高 波 “gbyang_hunu@hotmailcom 


万 波 dvdsoft78@msnmcom 
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第 1 章 MATLAB 概述 





MATFLABRB 的 名 称 源 自 Matrix Laboratory， 它 是 MathWorks 公司 开发 的 -种 科学 计算 软 
件 。MATILAB 将 高 性 能 的 数值 计算 、 符 号 计算 和 可 视 化 集成 在 一 起 ， 并 提供 了 大 量 的 内 宰 
函数 ， 从 而 被 广泛 地 应 用 于 科学 计算 、 控 制 系统 、 信 息 处 理 等 领域 的 分 析 、 仿 真 利 设计 工作 
中 。MATLAB 是 国 奈 会 认 的 优秀 数学 应 用 软件 之 一 。 

本 章 介绍 MATLAB 的 基础 知识 ， 包 括 MATLAB 的 发 展 历程 、 语 言 特 点 及 MATLAB 7.0 
的 新 产品 和 新 功能 ， 帮 助 读者 对 MATILAB 有 一 个 整体 的 了 解 。 

















1.1 MATLAB 的 发 展 历 程 


20 世纪 370 年 代 中 期 ， 数 值 计 算 成 为 工程 技术 和 科研 的 有 效 手 段 之 一 。Cleve Moler 博 十 
肥 其 同事 共同 开发 了 基于 Fortran 语言 的 LINPACK 和 EISPACK 冰 数 库 ， 以 支持 数值 计算 。 
这 两 个 函数 库 代 表 了 当时 拖 阵 计算 的 最 高 水 平 ， 并 为 广 坟 科 技 及 工程 人 员 所 广泛 使 用 。20 世 
纪 3 了 ?0 年 代 末 期 ，Cleve Moler 博 上 发 现在 使 用 这 两 个 函数 库 的 过 程 中 大 量 时 间 都 锌 放 在 了 接 
口 程 序 设 计 上 ， 为 了 减少 工作 量 ，Cleve Moler 亲自 编写 了 LINPACK 和 EISPACK 函数 库 的 
接 日 程序 ， 并 以 MATLAB 作为 该 接口 程序 的 和 名字， 

20 世纪 80 年 代 初 期 , Cleve Moler 与 John Little 等 利用 C 语言 开发 了 新 一 代 的 MATLAB 
语言 ,包括 编 详 解释 程序 、 峙 形 功 能 的 设计 以 及 各 半数 学 分 析 的 子 模块 ， 并 撰 己 了 用 广 指 
南 。1984 年 ， 为 了 推广 MATLAB 在 数值 计算 中 的 应 用 ，Cleve Moler 与 john Little 等 正式 
成 立 了 MathWorks 公司 ， 从 而 把 MATLAB 推 向 市 场 ， 并 开始 了 对 MATLAB 工具 箱 等 的 开 
发 设计 。 

1993 年 , MathWorks 公司 推出 了 MATLAB 4.9 版 本 ，1995 年 推出 MATLAB 4,.2C 版本， 
1997 年 推出 了 MATLASB S.x 版 本 (Release 11)，2000 年 推出 MATLAB 6 版 本 CRelease 12)， 
2003 年 排出 MATLAB 6.5 版 本 (Release 13)， 最 新 版 本 足 2004 年 7 月 排出 的 7.0 版 本 

《Release 14?》。 

新 的 版 本 集中 了 日 常数 学 处 理 中 的 各 种 功能 ， 包 括 高 效 的 数值 计算 、 和 矩阵 运算 、 信 和 号 处 
理 和 图 形 生成 等 功能 。 在 MATLAB 环境 下 ， 用 户 可 以 集成 地 进行 程序 设计 、 数 值 计 算 、 图 
形 绘制 、 输 入 /和 输出、 文件 管理 等 各 项 操作 。MATLAB 提供 了 一 个 人 一 机 交互 的 数学 系统 环 
境 。 该 系统 的 基本 数据 结构 是 矩阵 ， 在 生成 矩阵 对 象 时 ， 不 要 求 明 确定 尺 抵 阵 的 维 数 。 与 
利用 C 语言 或 Fortran 语言 进行 数值 计算 的 程序 设计 相 比 ,利用 MAILAB 可 以 节省 估量 的 编 
往 时间 。 在 美国 的 一 些 大 学 星 ，MATLAB 正在 成 为 对 数值 线性 代 装 ， 以 及 其 他 一 些 高 等 应 用 
数学 课程 进行 辅助 教学 的 有 益 工 具 。 在 工程 技术 异 ，MATLAB 也 被 用 来 解决 一 些 实际 课题 和 
数学 模型 问题 。 由 于 MAILAB 的 开放 性 和 可 移植 性 ， 自 第 1 版 发 行 以 来 ， 已 有 众多 的 科技 工 
作者 刘 入 到 MATLAB 的 开发 队伍 中 ， 并 为 形成 最 新 版 本 的 MATLAB 系统 做 出 了 巨大 的 贡献 ， 

MATLAB 以 商品 形式 出 现 后 ， 仅 短 短 玫 年 ， 就 以 其 良好 的 开放 性 和 运行 的 可 靠 性 ， 使 


















































二 。 





诛 先 控制 领域 时 的 封闭 式 软件 包 《“ 如 英国 的 UMIST， 东 典 的 LUND 和 SIMNON， 德 困 的 
KEDDC) 纷纷 漳 汰 ， 而 改 以 MATLAB 为 平台 加 以 重建 . 在 20 此 纪 90 年 代 ，MATLAB 已 
经 成 为 国际 控制 界 公 认 的 标准 计算 软件 。 到 90 年 代 初 期 ， 在 国际 上 30 移 个 数学 类 科技 应 
出 软件 中 ，MATLAB 在 数值 计算 方面 独占 鳌头 ， 向 MatheMatica 和 Maple 则 分 居 符 号 计算 
软件 的 第 二 和 第 一 名 。MathCAD 因 其 提供 计算 、 图 形 、 文 字 处 理 的 统一 环境 向 深 受 中 学 生 
欢迎 。 在 欧美 人 学 里 ， 诸 如 应 用 人 代数、 数理 统计 、 日 动 控 制 、 数 字 信 和 号 处 理 、 模 氢 与 数字 
通信 、 时 间 着 列 分 析 、 动 态 系统 仿真 等 课程 的 教科 飞 帮 把 MATLAB 作为 内 容 ，MATLAB 
是 攻读 学 位 的 大 学 生 、 硕 十 生 、 博 士 生 必须 掌握 的 基本 工具 .。 因此 ，MATLAB 已 经 被 确认 
为 准确 ， 可 靠 的 科学 计算 标准 软件 。 在 许多 国际 一 流 学 本 刊 物 上 《尤其 是 信息 科学 刊物 )， 
都 串 以 看 到 MATLAB 的 应 用 。 在 设计 人 研究 单位 和 工业 部 门 ，MAILAB 被 认定 是 进行 而 效 
算法 研究 和 并 发 的 首选 软件 工具 。 如 美国 National Instruments 公司 信号 测量 、 分 析 软 件 
LabVIEW，Cadence 公司 信 导 和 通信 分 析 设 计 软件 SPW 等 ， 或 者 才 接 建筑 在 MATLAB 之 
上 ， 或 者 以 MATLASB 为 主要 支撑 。 又 如 HP 公司 的 VXI 硬件 ，TM 公司 的 DSP，Gage 公 
司 的 各 种 硬 卡 、 仪 器 等 都 接受 MATLAB 的 文 持 . 


















































12 MATLAB 产品 组 成 及 语言 特点 

















MATLAB 支持 从 概念 设计 、 算 法 开发 、 模 型 仿真 和 实时 实现 的 理想 集 成 丈 境 。 无 论 进行 
科学 研究 还 是 工程 应 用 , MATLAB 都 是 必 不 可 少 的 横 型 和 算法 仿真 开具 .一 般 而 言 ,MATLAB 
的 典型 应 用 包括 ; 
数据 分 析 利 可 视 化 ; 

建 模 、 仿 真 和 蛛 型 开发 ; 

算法 预 设计 与 验证 ; 

几 形 用 户 界 面 设计 ; 

MATILABR 应 用 与 C、C++、Java 以 及 Web 集成 
一 些 特 殊 指 所 阵 计 算 应 用 ， 例 如 自动 控制 弄 论 、 统 计 、 数 字 信 号 处 理 【 了 时 间 序 列 分 
析 ) 等 。 


1.2.1 MATLAB 的 主要 产品 构成 


MATLAS 由 一 纽 面向 具体 应 用 的 工具 箱 组 成 , 包 售 了 完整 的 丽 数 集 用 来 对 数 子 图 像 、 控 
制 系统 、 小 波 分 析 和 神经 网 络 等 特殊 应 用 进行 分 析 和 设计 。MAILAB 的 工具 箱 是 开放 的 ， 因 
此 MATLAB 的 工具 箱 越 来 越 多 ， 功 能 也 越 来 越 强 大。 用户 可 以 编写 自己 的 工具 箱 ， 使 川 时 
与 使 用 MATLaAB 提供 的 工具 箱 一 样 。 因 此 ， 出 现 了 越 来 越过 的 免费 或 沿 业 MATLAE 开具 箱 
(参见 附录 AA)。 

MATLAB 的 主要 产品 构成 旭 下 。 


1，MATLAB 全 成 开发 环境 


MATLAB 提供 了 一 个 集成 的 开发 环境 , 方便 用 户 开发 自己 的 应 用 程序 , 它 有 系列 的 工 
= 
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具 和 功能 体 ， 其 中 大 部 分 共有 图 形 用 户 输 面 ， 包 括 桌 面 《Desktop )、 命 令 窗 口 、 历 史 窗 口 
(History)、 工 作 空 间 《Weorkspacey、 文 件 和 搜索 路 径 等 。 





2，、MATELAB 数学 函数 库 


MATLAB 提供 了 强大 的 数学 函数 库 ， 婚 包括 最 基本 的 征 阵 运算 函数 ， 如 矩阵 求 逆 等 ， 又 
包括 一 些 特殊 的 数学 函数 ， 如 贝 塞 尔 函 数 等 。 数 学 函数 库 是 MATLAB 进行 数据 分 析 的 基础 。 


3，MATLAB 图 形 用 户 接口 


MATLAB 提供 了 图 形 用 户 接口 函数 , 包括 二 维和 三 维 图 形 显 示 、 图 像 处 理 、 动 面 和 图 形 
显示 的 高 级 命令 。 设 计 网 形 用 户 界 面 《GUI) 的 工具 包括 布局 编辑 器 、 排 列 工 具 ， 属 性 观察 
器 和 菜单 编辑 器 等 。 


4，MATLAB 的 专用 他 域 工具 箱 


MATLAB 提供 了 一 系列 专用 领域 的 工具 箱 ， 如 模型 仿真 、 神 经 网 络 、 小 波 分 机、 们 叶 处 
理 、 图 像 处 理 等 ， 用 于 解决 特定 领域 的 工程 问题 。 工 具 箱 是 升 放 和 可 扩展 的 ， 用 户 可 以 根据 
需 皮 选 择 购买 和 选择 安装 需要 的 工具 箱 。 



































5、MATLAB Compiler 


MATLAB Compiler ( 编 详 器 ) 提供 了 将 MATLAB 语言 编写 的 M 文件 自动 转换 为 和 或 
C++ 格式 文件 的 能 力 ， 支 持 用 户 进行 独立 应 用 开发 。 利 用 MATLASE Compilerf， 用 户 是 以 快速 
地 开发 出 功能 强大 的 独立 应 用 。 


1， MATLAB Simulink 


Simulink 是 一 个 对 动态 系统 进行 建 宰 、 仿 真 和 分 析 的 软件 包 。 它 可 以 仿真 线性 系统 ， 
又 可 以 仿真 非 线性 系统 。 它 使 得 MATLAB 的 功能 得 到 了 进一步 的 扩展 : 
。 实现 了 可 视 化 建 模 , 在 Windows 环境 下 , 用 户 可 以 通过 简单 的 鼠标 操作 建立 直观 的 系 
统 模型 ， 进 行 分 析 仿真 . 
。 实现 了 与 MATLAB 中 M 文件 的 数据 共享 ， 甚 至 可 以 与 硬件 实现 实时 信息 交换 。 
。 将 理论 研究 与 工程 实际 有 机 地 结合 在 一 起 。 


7，Stateflow 

与 Simauling 的 模型 框 结合 ， 描 述 复杂 事件 驱动 系统 的 逻辑 行为 ， 驱 动 系统 在 不 同 的 模块 
之 间 进 行 切 换 。 

8， 良 eal-Time 妈 ofKshoehp 


RealLTime Workshop 与 Statefiow 直接 从 Simulink 模型 与 Statefiow 框图 中 生成 高 效 的 
可 移植 C 代码 或 Ada 代码 。 只 需要 简单 的 操作 ， 用 户 无 须 烦 琐 的 手工 编程 与 调试 就 可 以 生成 
应 用 代码 ， 

MATLAB 安装 完 后 ， 在 MATLAB 命令 符 下 输入 ver 命令 ， 即 可 了 解 安装 了 哪些 工具 箱 
以 及 它们 的 版 本 。 本 书 的 MATLAB 7.0 工具 箱 版 本 站 下 《 仅 列 举 了 部 分 与 混合 编程 相关 的 及 


= 呈 








个 别 应 用 工具 箱 ): 
>> Ver 


RMATLAB Wetsion 7 了- 间 .]199320 【及 14》 
MAT]1AEB License Murmber' 站 


Operating System: kiicrosoft Windows 2000 Version .0【“Build 2195: Service Pack 4) 
Java VWM Version: Java ].4.2 with Sun kficrosystems Inc. Java HotSpot {TM) Client YA 


MATTI 后 Wersion 7.0 【R1d41 


Simulink Wersion 6.0 《及 14) 

也 xceel Link Wersion 之 及 14) 

Image Processing Toolbox Wersion 4.2 “有 R14) 

MATLAEB Builder for COM Wersion 1.1 《及 1 1 

MAILAB Builder for 已 xeel Wersion 1.2 【Ridy》 

MATLAEB Compiler WerSiom 4 人 { 及 14 
1.2.2 MATLAB 语言 的 特点 





MATLAB 上 县 有 不同 子 其 但 语 言 如 Fertran、C 语言 等 的 特点 ， 被 称 为 第 四 代 计 算 机 语言 ， 
总 称 为 “点 稿 纸 式 ” 的 语言 。MATLAB 把 下 程 技术 人 员 从 焕 琐 的 程序 代码 中 解放 出 来 ， 可 以 
快速 地 验证 自己 的 模型 和 算法 。 概括 起 来 ，MATLAB 语言 其 有 如 下 主要 特点 。 


]， 方 使 的 托 阵 和 数组 运算 


MATLAB 是 以 第 阵 为 基础 的 ， 可 以 方便 地 进行 第 阵 的 算术 和 运算、 关系 运算 和 网 辑 运算 
等 , MATLAHE 有 特殊 抵 阵 专门 的 库 函 数 ， 可 以 高 效 地 求解 诸如 信号 处 理 . 控制 、 优 化 等 问题 。 
变量 不 需要 预先 定义 ， 也 不 需要 预先 定义 种 阵 〈 人 包括 数组 ) 的 维 数 。 


2， 编 程 效率 极 高 


MATLAB 是 - -种 面向 科学 和 工程 计算 的 高 级 证 吉 。 它 以 年 阵 运算 为 基础 ， 极 少 的 代码 即 
可 实现 复杂 的 功能 。 例 如 求 矩 阵 的 秩 ，MATLAB 只 需要 -条 语句 det( )， 而 C 语言 等 则 过 要 
几 干 其 至 上 吉 条 代码 。 























3 雾 学 肠 用 ， 人 使用 方便 


MATLAB 易学 易 用 ， 其 毅 数 名 和 表达 更 接近 我 们 书写 计算 公式 的 思维 表达 方式 ， 
MATLAB 编写 得 序 犹如 在 演 音 纸 上 排列 公式 与 求解 问题 。MATLAB 是 -种 解释 性 语言 ， 不 
需要 专门 的 编译 器 。 有 具体 地 说 ，MATLAB 运行 时 ， 可 直接 在 命令 行 条 入 MAILAB 语句 ， 系 
统 立 即 进 行 处 理 ， 完 成 编译 、 链 接 和 运行 的 全 过 程 。 因 此 ，MATILAB 语言 不 仅 是 一 门 语言 ， 
广义 上 证 一 种 语言 调试 系统 ， 




















4， 可 扩充 性 强 





MATILAB 有 着 丰富 的 库 函 数 , 在 进行 复杂 的 数学 运 健 时 可 以 直接 调用 。 用 户 可 以 根据 般 


* 寺 。 


要 方便 地 编写 和 扩充 新 的 函数 库 。 为 了 充分 利用 Fortran 和 C 语言 资源 ， 用 户 可 以 通过 混合 
编程 在 MATLAB 中 调用 Fortran 和 C 语言 的 源 程序 ， 也 可 以 在 C 语言 和 Fortran 中 使 用 
MATLAB 的 数值 计算 功能 。 


5， 可 移植 性 好 


MATLAB 本 身 是 用 C 语言 编写 的 ， 而 C 语言 的 可 移植 性 好 。MATLAB 函数 可 以 很 方便 
地 移植 到 C 语言 平台 。 除 了 内 部 函数 以 外 ，MATLAB 的 绝 大 部 分 函数 和 工具 箱 函 数 都 是 公 
开 的 ， 可 以 用 文本 编辑 器 打开 。 

但 是 ，MATLAB 作为 一 种 解释 性 语言 ， 与 C 语言 等 其 他 高 级 语言 相 比较 ， 也 存在 着 以 
下 一 些 缺 点 : 

(1) 运行 效率 较 低 ， 执 行 相同 功能 的 代码 运行 时 间 较 长 ; 

(2) M 文件 为 文本 文件 ， 文 本 编辑 器 可 直接 打开 ， 不 利于 算法 保密 ; 

(3) 访问 硬件 能 力 相 对 较 差 ， 图 形 用 户 界面 功能 也 不 够 灵活 。 


1.3 MATLAB 7.0 的 新 功能 和 新 产品 


1.3.1 MATLAB 7.0 的 新 功能 


MATLAB 的 版 本 发 展 较 快 ， 自 20 世纪 80 年 代 诞 生 以 来 已 发 展 到 7.0 版 本 。2004 年 
MathWorks 推出 了 最 新 的 7.0 版 本 ， 它 较 以 前 版 本 有 了 较 大 的 改进 。MATLAB 7.0 的 特点 在 
于 全 新 的 桌面 及 各 种 不 同 领域 的 集成 工具 ， 以 方便 用 户 使 用 。MATLAB 7.0 的 桌面 如 图 1-1 
所 示 。 


be 
< 虽 吉凶 jcewaroe 








图 1-1 MATLAB 7.0 桌面 


MATLAB 7.0 针对 编程 环境 、 代 码 效 率 、 数 据 可 视 化 、 数 学 计算 、 文 件 IO 等 方面 进行 
升级 ， 具 体内 容 包括 以 下 方面 。 











1. 
大 


和 到 


人 


开发 环境 


重新 证 计 的 桌面 环 培 ， 针 对 多 文档 界面 诬 用 提供 了 简便 的 管理 和 访问 方法 ， 多 许 用 
户 自 定 交 桌 面 外 更、 创建 常用 命令 的 快捷 方式 ; 

增强 数组 编辑 器 〈Array Editor) 和 工作 空间 浏览 器 “Workspace Brower) 功能 ， 有 几 
于 数据 的 显示 、 编 辑 和 处 理 ; 

在 当前 上 月 录 浏 览 器 《Cuarrent Directory Browser) 工具 中 ， 增 加 代码 效率 分 析 、 履 盖 
度 分 析 等 芒 能 ; 

M-Lint 编码 分 析 ， 辅 助 用 户 完 成 程序 性 能 分 析 ， 提 高 程序 执行 效率 : 

增强 M 文件 编辑 器 (M-Editor), 支持 多 种 格式 源 代码 文件 可 视 化 编辑 , 例如 CC++、 
HTML 、jJava 等 。 








编程 


支持 创建 暴 套 函数 〈Nested Funetion)， 提 供 更 灵活 的 代码 模块 化 方式 ; 
匿名 函数 《Anonymous Funetion) 功能 ， 支持 在 命令 行 或 者 脚本 文件 中 创建 单行 旬 
数 【Single Line Functiom ): 

支持 条 件 分 妫 断 点 ， 可 以 在 条 件 分 支 语句 由 进行 程序 中 断 调试 ; 
模块 化 注释 ， 支 持 为 代码 段 注 释 。 

数学 

支持 整数 算术 运算 ; 

支持 单 精度 数据 类 型 运算 ， 包 括 基本 算术 运算 、 线 性 代数 、 FFT 等 ; 
使 用 更 强大 的 计算 算法 包 ， 浊 供 更 丰富 的 算法 支持 ; 

linsoye( ) 函 数 用 于 处 理 线 作 代 数 方程 求解 ， 

ODE 求解 器 能 够 处 理 隐 性 微分 方程 组 以 及 多 点 边界 问题 。 


图 形 和 3D 可 视 化 


新 图 形 窗 体 界 而 ; 

直接 从 图 形 窗 体 生 成 M 代码 ， 可 以 完成 用户 自 定 义 综 疼 ; 
增强 锋 形 窗 体 注释 ; 

数据 侦 测 工具 《Data Exploration Tools)， 提 供 丰 语 的 数据 观测 于 段 ; 
自 定义 图 形 邓 篆 ， 提 供 丰 富 的 网 形 显 示 能 力 ; 

GUIDE 新 增 对 用 户 界面 面板 和 AetiveX 控件 文 桂 ; 

增强 句柄 网 形 对 象 支持 完整 的 TeX 和 LaTeX 字符 集 . 


文件 IO 和 外 部 接口 
新 增 文件 IO 冰 数 ,支持 读 取 任意 格式 文本 数据 文件 ,并 日 文 持 写 入 Excel 和 HDF5 
格式 数据 文件 ; 
具有 有 上庄 缩 功 能 的 MAT 文件 格式 ， 支 持 快 速 数据 文件 TO 能 力 ; 
javaaddpath( ) 本 数 ， 无 须 重 新 局 动 MATLAB 即 完 成 Java 类 的 加 夫 、 删除 等 功能 ; 



































支持 COM、 服 务 闪 事 件 以 及 VBS; 

点 持 SOAP， 使 用 网 络 服务 ; 

FTP 对 篆 ， 直 接 泸 铝 FTP 服务 器 ; 

支持 Unicode 编码 格式 ， 增 强 MAT 文件 字符 集 。 


性 能 与 系统 平台 支持 


世 JIT 加速 器 支持 所 有 数值 数据 类 型 
记 Windows XP 系统 下 六 持 3GB 内 存 访 问 。 


1.3.2 MATLAB 升级 及 新 增 的 模块 
MATLAB 70 升级 了 29 个 产品 模块 ， 新 增 了 12 个 产 曲 模 据 。 
1.3.2.1 模块 主要 特性 总 结 


有 有 


个 


1，Control System Joolbox 6 


Control System Toolbox 6 工具 箱 为 动态 系统 闭环 控制 器 设计 与 分 析 提 供 了 强大 的 工具 ， 
主要 新 特性 包括 ; 

> ”使 用 基于 LAPACK 和 SLICOT 和 代 法 引 警 的 强大 数值 计算 引擎 , 提高 计算 速度 与 精度 ; 

交 针对 非 稳 态 系 统 提供 了 更 好 的 模型 缩减 算法 ; 

新 寺 发 的 模 划 分 解 命令 。 





2.、Datahbase Toolbox 3 


Database Toolbox 3 支持 在 MATLAB 环境 中 访问 支持 ODBCHUDBC 标准 的 数据 库 ， 使 
用 Visual Query Builder 上 具 可 以 完成 数据 库 的 访问 、 修 改 等 工作 ， 这 一 过 程 不 需 工 程 师 了 
解 任 何 SQL 庄 言 ， 主 要 新 特性 包括 ; 

人 ”支持 Java 语言 的 SQL 对 象 BINARY 和 DTHER: 

支持 脱离 Wisual Query Builder 直接 向 OPBCNDBC 数据 库 写 入 数据 ; 

Visual Query Builder 支持 结构 和 数值 数组 ， 








3，Filter Design Toolhbox 3 


Filter Design Toolbox 3 支持 高 级 数字 滤波 器 的 设计 、 仿 真 与 分 析 工 作 ， 提 供 了 基本 滤 诅 
器 体系 结构 和 设计 上 方法， 包括 自 适应 滤波 器 和 多 速率 泪 波 器 ， 并 且 可 以 用 于 复杂 的 实时 DSP 
系统 开发 ， 主 要 新 特性 包括 : 

> 扩展 支持 二 阶 TIR 滤波 点， 提供 滤波 器 的 设计 、 重 梅 、 定 标 与 量化 、 图 形 化 分 析 的 

能 力 ; 

罗 ”支持 多 速率 滤波 器 的 设计 与 分 析 ， 将 单 速率 滤波 器 与 多 速率 滤波 器 分 析 设 计 工 作 集 
成 ; 
增强 的 定点 滤波 器 仿真 、 分 析 和 集 碟 功能 ， 支 持 Signal Processing Toolbox; 
改进 FDATool 工具 ,包含 了 高 级 滤波 器 的 设计 方法 、 多 速率 滤波 器 设计 功能 ， 改 进 











W 


二 





了 旦 化 设计 芭 能 等 ; 
富 支持 通过 Filter Design HDL Coder 将 涯 波 器 设计 结果 进行 FPGA 仿真 。 














4 Instrument Control Toolhex 2 





Instrument Control Toolbox 2 提供 了 与 各 种 仪器 入 备 进行 数据 通信 的 能 力 ， 该 革 有 具 箱 文 持 
GPIB、VISA、TCPAP 以 及 UDP 等 租 信 方式 . 工程师 品 以 在 MATLAB 环境 下 生成 数据 发 送 
铭 相 应 的 仪 冉 设 备 或 者 从 仪 问 设备 中 读 瞩 数据 计 且 进 行 分 析 和 可 视 化 工作 ， 主 昌 的 新 特性 包 
括 : 

支持 TVI、VXIPlugandPlay 等 设备 ， MATLABS 的 仪器 驱动 无 须 用 户 了 解 仪 点 特性 即 

订 井 展 工 作 ; 
交 。 新 井 发 的 图 形 愉 面 工具 TMTool]， 用 户 管 理 设备 驱动 



































$，Mapping Toolbox 2 


Mapping Toolbox 2 提供 在 MATLAB 环境 下 进行 地 理 信 息 显 示 、 分 析 的 函数 以 太 相 应 的 
图 形 化 界 而 工具 ， 主 要 新 特性 包括 ; 

盖 支持 标 准 GIS 和 地 理 信息 数据 文件 格式 ; 

记 支持 Yansverse Mercator 项 日 和 PROJ.4 项 目 数 据 库 。 





6、MATLAB Compiler 4 


MATLAB Compiler 4 能 够 将 MATLAB 的 算法 和 应 用 程序 文件 转变 成 可 以 发 布 的 独 芯 
可 执行 的 应 用 程序 ， MATLAB Compiler 4 支持 更 多 的 M 语言 特 人 性， 主要 新 特性 包 折 : 
记 荚 容 MATLAB 面向 对 象 数 据 类 型 ; 
共享 库 函 数 开发 环境 ， 碌 容 R14 和 R13 版 本 的 程序 开 皮 ， 
> 增强 C++ 语言 集成 ; 
交 支持 牛 成 各 种 独立 订 执 行 的 应 用 程序 ， 包 括 CAC++ 套 享 库 、 COM 组件 和 Excel 
Plug-in 等 。 








7，MATLAB Repott 妇 enerator 2 


使 用 MATLAS Report Generator 2 可 以 根据 用 户 开发 的 MATLAB 应 用 程序 自动 创建 各 
种 文档 报告 ， 主 坚 新 特性 包 拓 : 

关 ， 重新 设计 的 岁 形 界面 工具 ; 

这。 重 快 的 文档 生成 速度 : 

> 支持 生成 Adobe PDE 格式 文档 ， 

交 增加 MATLAB 组 件 ， 支 持 Axes、 们 柄 图 形 以 及 MATLAB 属性 表格 。 








8，O 〇 ptimization TOoclbox 3 


Optimijzation Tooelbox 3 提供 了 针对 通用 问题 或 者 大 规模 优化 问题 处 理 的 算法 ， 文 持 线 性 
需 划 、 二 次 规划 、 非 线性 最 小 二 乘法 、 非 线性 方程 求解 等 功能 ， 主 要 新 特性 包括 ; 

> 二进制 整数 规划 问题 求 能 ; 

> 针对 中 等 规模 问题 实现 无 约束 优化 算法 函数 fminunc; 























P 


增加 翌 用 单纯 形 算 法 的 线性 规划 函数 linprog， 


9，Signal Processing Blockset6 ( 原来 的 DSP Blockset ) 

Signal Precessing Blockset 6 适用 于 扩展 Simutink， 进 行 针 对 帧 信号 的 数字 信号 处 理 系统 
设计 、 仿 真 与 分 析 于 作 。 它 能 够 完成 通信 系统 、 音 频 / 视 频 系 统 、 数 下 控制 髓 、 雷 达 / 声 呐 系 
统 、 消 费 类 电子 产品 以 及 医疗 器 械 等 信号 处 理 系统 的 开发 工作 ， 主 要 新 特性 包括 ; 





关 


WwW 














将 频 与 语音 处 理 功 能 ， 包 括 LPC tofrom RC，G.711 Codec，CIC 等 ; 

扩展 的 数字 滤波 占 ， 包 括 4 类 浮 点 滤波 器 和 15 类 定点 结构 读 波 器 : 
增强 的 定点 支持 《需要 Simulink Fixed-Point) 用 于 站 波 内 、 信 号 统计 模块 等 功能 ; 
新 开发 的 定点 参数 设置 对 话 框 用 于 设置 模型 的 定点 特性 ， 例 如 宝 长 、 一 进 制 小 数位 
以 及 整数 溢出 等 

新 改进 的 Secope 模块 ， 支 持 Waterfall Scope。 


Virtual Reality Toolbox 4 


Virtual Reality Toolbox 4 可 以 将 三 维 虚拟 现实 场景 引入 到 Simulink 模型 中 ,用 于 Simulink 
模型 运算 结果 的 可 视 化 显示 工作 ， 主 要 新 特性 包括 ， 


几 





支持 动 电 显示 结果 的 录制 

支持 向 量 、 拖 阵 数 据 笨 入 ， 用 于 控制 场景 动画 ; 

支持 从 Simulink 模型 中 摔 制 动画 显示 速 褒 ， 

改进 的 三 维 场景 观测 器 (Viewer)， 用 于 模型 的 创建 和 观察 

支持 USB S$pace Mouse , Space Traveler 运动 控制 输入 设备 ， 以 及 力 回 锁 操 级 杆 输入 
设备 。 























1.3.2.2 升级 产品 模块 及 新 模块 
MATFLAB 3.0 升级 的 29 个 产品 卉 块 和 新 增 的 12 个 产品 模块 列举 见 表 1-1 至 表 1-3。 





表 1-1 主要 升级 模块 
| 模块 名称 











CarnItUnicatiorms 卫 1ocKSeE 


Nertineat 和 one Design Bockasct 


上 《更 朋 为 Simmalink Response Dptimization ) 











Communications Toolbox | Dptimization Tooclbox 








Control System Toolbox 及 ea]-Time 光 orkshop 





TDatabpase TDDlpox Real-Time Workshop EtabeadedCedes 


记 SP 责 ]oekset 


《更 名 为 Signal Processing Blockset> 








Sigmnal Processing 卫 lockset 








Eimbedded Target fof kiotorola MPCSSS Simmulink Fixed Poinmt 








Embedded 了 arget Tor TI OO0 让 SP Simulink RePpott CeneratoT 








Filtsr Design Toojbox SimuHnmk Recspotmse Cptimmizatneom 














Financial Penvatives Toolhbox 妨 tate 和 mW 


异 块 有 称 








Fixed-Poitt 瑟 ]ockset | 


Siatefow Corler 
【更 名 为 Simulink Fixed Point》 





nstrument Control Too]bosx Statistics Toolbox 





Rappine Teolhox SYysteltt IdJcntification Toolhaox 








MATTLAAB Comtbiler Wirtual Realjty Toolheox 

















MATLABB 民 Epott GeneTator | Wavelet Taoibox 





icel Predietive Comntrol Toojtox 
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表 1-.3 其 他 升级 模块 














模块 莉 称 异 坎 名 称 
血 etospace 吾 IJDCkser 上 恒 六 T 瑟 号 ink for Code ComPposer Stadio 1.3.1 
人 urve Fitting Toolbox 1.1.1 MATLAB Bulder for COM ].1“tormeny named ATILAB 


COM Builder) 












































Data Acquisiton Toolbox 2.3 MATLAB Builder [er Excel 1.2 【fornery named MATLAH 
Excel Builder， 

Datafeed Toolbox 1.5 forkjcl-Based Calibration Toolbox 2.1 

Dials 衣 Gauges Blockset 1 fu-Analysis and Synthesis Joolbox 3.( 宫 

Einhedded Targer for infireon 位 166 Miicrocontolers 1.1 etmral Mebhwwork Fonlbox 4 总 了 

Embedded Target for etorola HIC12 1.1 Partial Ditterenbal Equation Toolhex 1.0.5 

Embedded Target forDSEKIVDX 1.1 及 eal-Tirmme Wimdows TafreEt 2. 

Exeel Link 之. 之 Robust Conirol Toolpox 2 计 0 

EXtcngdead Symbolic ktath Toolbox 3.! SSnal Processing Toolhox 各 .之 

Financial Time Series Toclbox 2.1 Simjechanmnics 之 了 

Financial Toolhox 2 4 SirmPowerSYysteTDS 3.1 

了 ixetd-Income Toclbox 1.0.1 Simnlink 和 cceleTator 各 

Fuzzy LOBie Toolbox 2,1.3 Symbolic Rath Tootbox 3.1 


* 1 和。 


模块 名 称 





已 ARCH Tooimox 2.0.1 上 xPC Target 了 . 








Image 上 Acquisition Toolbex 1.5 上 xPC Tarset Embedded CDption 2.5 








LMIL Control Tooliboy 1 人 .1 


1.4 小 纤 
本 章 介 绍 了 MATLAB 语言 的 基础 知识 ， 和 包括 MATLAB 的 发 展 历 释 、 语 言 特 点 及 最 新 


版 本 MATLAB 7.0 的 新 产品 和 新 功能 . 通过 本 章 的 学 习 , 读者 对 MATLAB 可 以 有 一 个 晒 
的 了 解 。 


和 | | * 


第 2 章 MATLAB 程序 设计 及 代码 优化 





MAILAB 易学 易 川 ， 其 函数 名 和 表达 很 接近 我 们 书 气 计算 公式 的 叫 维 到达 方式 ， 肝 
MATLAB 编写 程序 狐 如 在 演 草 纸 上 排 列 公 式 与 求解 问题 。MathWorks 公司 将 MATLAB 称 
为 第 由 代 编 程 语言 , 足见 其 简捷 . 同 其 他 的 程序 设计 语言 一 样 , MATLAB 语言 提供 了 流 控 制 、 
函数 、 数 据 结构 、 输 入 /输出 功能 以 及 面向 对 象 的 程序 设计 方法 。 


21 MATLAB 的 表达 式 和 变量 


2.1.1 表达 式 


表达 式 和 变量 是 MATLAB 的 基础 。MATLAB 来 用 的 是 表达 式 诸 言 ， 用 户 输入 的 语 菩 由 
MATLAB 系统 解释 运行 。 MATLAB 的 语句 由 表达 式 和 变量 组 成 。MAILAB 语句 有 遇 种 常见 
的 形式 ; 

区 表达 区 ; 

放量 = 表达 式 . 

在 第 一 种 形式 中 ， 如 此 不 指定 将 表达 式 的 值 赋 给 菜 个 变量 ， 表 达 式 会 将 运算 产 牛 的 结果 
自动 地 赋值 给 名 为 ans 的 变量 ， 并 显示 在 屏幕 上 。 变 量 ans 契 一 个 加 认 的 变量 名 ， 它 会 在 以 
后 的 类 似 操 作 中 被 自动 履 善 。 

对 对 第 种 形式 ， 等 号 右边 的 表达 式 计算 产 牛 的 结果 赋值 给 等 号 左边 的 变星 ， 并 旦 放 入 
内 存 中 。 


2.1.2 变量 





























变量 是 任何 程序 设计 语言 的 基本 要 素 。 与 常规 的 程序 设计 语 才 不同，MATLAB 语言 的 伙 
基 不 需要 事先 声 时 ,也 不 需要 指定 变量 类 型 , MATLAB 会 自动 依据 所 赋予 变量 的 值 或 对 变量 
所 进行 的 操作 来 识别 变量 的 类 型 。 赋 值 过 程 中 如 果 赋 值 变 基 已 经 在 在 ， 将 用 新 值 代替 划 值 ， 
新 值 炎 型 代替 旧 值 类 型 。 在 MATLAB 中 变 攻 的 命名 应 遵循 如 下 规则 ， 

六 变量 名 区 分 大 小 写 ; 

关 变量 名 长 度 不 超过 31 个 字符 ; 

交 。 变 量 名 以 字母 开头 ， 可 以 由 字母 数字、 下划线 组 成 ， 介 不 能 使 用 标点 。 

MATLAB 语言 中 的 变量 也 存在 变量 域 的 问题 。 在 未 加 特殊 说 明 的 情况 下 ，MAILAB 语 
言 将 廊 识 别 的 一 切 变 基 视 为 局 部 变量 。 


2.2 细胞 数组 与 结构 数组 

















2.2.1 细胞 数组 


用 类 似 矩 阵 的 记号 将 复杂 的 数据 结构 纳入 一 个 变量 之 下， 与 矩阵 中 的 圆 括号 表示 下 标志 
二 12 血 





亿 ， 红 胞 数 纽 由 大 括号 表示 下 标 。 
>> B={1 .Anne cat，] 和 TO0, 80. 75: 77， 60, 921 067.28.090; 100, 89.78]} 
B= 号 rne cat' [18] [4x3 doublej 


访问 单元 数组 应 该 由 大 括号 进行 ， 如 第 4 单元 中 的 元 素 可 以 由 下 面 的 语句 得 出 ; 





>> 也 {4} 

ans= Lo0 80 35 
77 的 9 
47 28 名 
100 89 78 


2.2.2 ”结构 数组 

MATLAB 的 结构 体 有 点 像 C 语 计 的 结构 体 数 据 结构 。 每 个 成 员 变 量 用 点 号 表示 , 如 勾 B 
表示 A 变量 的 成员 变 量 。 获 得 该 成 员 比 C 更 再现 ， 仍 用 A.p 访问 ， 而 不 用 A->p。 用 下 
面 的 语句 可 以 建立 一 个 小 型 的 数据 库 ， 


22> student_rec.number=]; 








student_Tee:rtarme' 上 1an 多 hearer 

student_TeC.hejight= ]80; 

中 utient_ tec.test=[100. 80. 75; 77,. 60, 92; 三 7 28. 90: 100. 89, 78]， 
> Sttdent_trec 

StUQUEnt_rEC 一 

TUmber: | 

narme: 上 ian Shearer 

height: 180 

test [4x3S doubbe] 


删除 成 员 变 量 可 以 由 rmfield( ) 栈 数 进 行 , 深 加 成 员 变 量 可 以 直接 用 赋值 语 铝 即 可 。 另外 ， 
数据 读 取 可 以 由 setfield( ) 和 getfieldf ) 函 数 完成 。 


23 类 与 对 象 


本 节 讲 解 妞 何 创建 类 来 增加 MATLAB 的 数据 类 型 。 通 过 创建 类 和 对 象 ， 可 以 增加 
MATILAB 的 数据 类 型 和 操作 方法 。 类 定义 了 一 种 数据 结构 以 及 可 用 于 此 种 数据 的 衣 数 和 运算 
符 等 。 对 象 是 类 的 实例 。 类 与 对 象 是 MATLAB 5$.* 开始 引入 的 数据 结构 。 在 MATLAB 手 
册 中 定义 了 一 个 很 好 的 类 一 一 多 项 式 类 。 事 实 上 ， 在 实际 工具 箱 设 计 中 ， 用 到 了 很 多 的 类 ， 
例如 在 控制 系统 工具 箱 中 定义 了 LTI (线性 时 不 变 系 统 ) 类 ， 并 在 此 基础 上 定义 了 其 子 类 : 
传递 丽 数 类 TF， 状 态 方程 类 SS， 败 极点 类 ZPK 和 频率 响应 类 FR。 

下 面 通过 …- 个 例 了 来 介绍 类 的 构造 在 MATLAB 语言 使 用 手册 申 给 出 了 :个 和 银 有 代表 
性 的 例子 : 多 项 式 类 的 建立 问题 。 假设 我 们 想 为 多 项 式 建立 一 个 单独 的 类 , 重新 定义 加 、 减 、 
乘 太 乘 方 等 运算 ， 并 定义 其 显示 方式 。 那 么 建立 一 个 类 至 少 应 该 执行 下 而 的 步 双 : 

1) 首先 应 该 选 定 一 个 恰当 的 和 名字， 例如 这 里 的 多 项 式 类 可 选择 为 polynom。 以 这 个 
名 字 建 立 -- 个 子 日 录 ， 目 录 的 名 字 前 如 息 。 半 本 例 来 说 ， 即 应 该 在 当前 前 工作 目录 上 下 建立 
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@@polynom 了 日 及， 而 这 个 月 录 无 须 仁 MAILAB 路 和 从 下 青 指定 。 

2) 编写 类 的 构造 函数 ， 通 数 名 让 该 和 类 同名 。 人 在 定义 类 方法 的 子 日 录 中 ， 必 须 有 一 个 
水 为 构造 程序 的 M 艾 件 。 构 造 程序 通过 初 冶 化 类 的 数据 结构 和 给 类 分 配 标号 来 定义 类 。 

下 面 是 多 项 式 类 的 构造 函数 polynom 人 (如 的 内 容 : 


function p = polynom(a) 

















号 POLYNOM Polynomiai class gonstructor， 
名 PT=POLYNOMIv) creates a bolynorujal object from the vector V， 
损 ”containing 由 e coefficients of escending POweTS of X. 
下 nargsin == 

PRe= []; 

了 = classfP, polynom'); 
它 ]5e 计 区 aa.polynorr 

己 = 引 
人 18Ee 

pe= at. 

电 = classfPPolymortJ; 


end 


可 以 看 出 ， 当 采用 无 输入 参数 的 格式 调用 函数 polynom( ) 时 ， 构 造 程序 将 为 该 对 象 生成 
一 个 模板 ， 遂 常情 况 下 属性 值 为 空 ， 当 输入 参数 为 多 项 式 时 ， 构 造 程序 将 原封 不 动 地 返回 俯 
多 项 式 ， 当 输入 参数 不 是 多 项 式 时 ， 构 造 程序 将 把 输入 参数 变形 为 行 向 量 并 贱 给 属性 “， 基 
后 虱 函 数 class( ) 加 上 标号 “polynom”， 表 明 访 对象 为 多 形式 。 
一 般 来 说 ， 类 的 构造 冰 数 都 采用 类 似 polynem(a) 的 框 锅 ， 大 致 包含 以 下 几 个 部 分 : 
如 果 不 给 输入 变量 ， 则 建立 一 个 空 的 多 项 式 ; 
如 果 输 入 变量 a 已 经 为 多 项 式 类 ， 则 将 它 直 接 传 送 给 竹 出 变量 p; 
如 果 a 为 向 量 ， 则 将 此 向 量变 换 成 行 向 量 ， 再 构造 成 -个 多 项 式 对 象 ， 
该 结构 的 属性 赋值 
用 函数 class( ) 加 标号 。 
(3》 如果 想 正确 地 显示 新 定义 的 类 ， 则 必需 首先 定义 display{ ) 函数 ， 并 对 新 定义 的 类 重 
新 定义 其 基本 迄 算 。 对 多 项 式 来 说 ， 可 以 如 下 定义 有 关 的 函数 : 要 上 帮 灾 显示 函数 的 定义， 则 
需 在 此 日 未 下 重新 建立 一 个 新 酌 数 display()。 这 种 重新 定义 函数 的 方法 又 称 为 函数 的 重 载 。 
显示 函数 可 以 如 下 地 重 载 定义 : 
function disPlaytp) 
名 POLYNOMVDISPLAY Command window display of a Polysom 
dispt 小 
dspt[inputhatnefl)，= 
”由 sp( 
dispt[ “ceharlp)) 
中 spI 


























了 

















从 上 而 的 定义 可 见 ， 显 示 孙 数 要 求 重 裁定 义 charf ) 函数 ， 用 于 把 多 项 式 转换 成 可 显示 
的 字符 中 。 该 冰 数 的 定义 为 ; 
Humnections = charp) 
% POLYNOMVCHAR 
馈 CHARIP) is the string representation of DC 
让 apc == D) 
sS = 人 各; 
C1SE 
由 = lengthftP.cy - 1 
s 二 日 ; 
for a = D.ci; 
让 a -= 全 
于 ~1SeInbty(S) 
计 a> 
sS=[s +]; 


else 


end 
fa~=11d4== 避 
3 一 [smum2str(a]]; 
计 本 > 昌 
s= 和 学 ]; 
end 
end 
认 本 >= 了 
s= [sx int2strld)]; 
else 让 可 == 1 
[1 
emd 
end 
吕 = 柑 -1 
cad 


enL 


任 细 研究 此 函数 , 可 以 发 现 ， 该 函数 能 白 动 地 按照 多 项 式 显示 的 格式 构造 字符 串 。 比 如 ， 
多 项 式 各 项 用 加 减 号 连接 ,系数 与 算 子 之 间 用 乘 号 连接 , 向 算 子 的 指数 由 ^ 表示 。 埋 了 本 以 显 
示 函 数 ， 则 可 以 将 此 多 项 式 以 字符 串 的 珍 式 显示 出 来 。 

产 。” 双 精度 处 理 

双 精 度 转 换 函 数 的 重 载 定 义 是 很 简单 的 。 


funetion c = doubletD) 












































名 POLYNOMVDOUBLE Convert polynont object to coefficient vector. 
驳 CE=DOUBLEp) converts a polynomial object io the vector C 
骆 ”Containing the coefficients Of descending PowerTs of X， 


对 一 ci 


盖 加 运算 
两 个 多 项 式 相 如， 只 需 将 其 对 应 项 系数 相 如 即 可 。 这 样 ， 加 法 运 等 的 重 载 定义 可 由 下 面 
的 函数 实现 。 注意， 这 里 要 对 plus( ) 函数 进行 重 载 定义 。 
fanetion r = Plus(P.q) 
和 POLYNOMIVPLUS Implementp + gforPpaolynoms. 
p = Polynonmp)， 
忠 = polynorntq》; 
长 = 1etgthf9.Cy - nEOP.C》 
T= Polynomffzerosf]k) ce] + [Zerbsfl,-k) gel 


同 理 ， 述 可 以 重 载 定 义 多 项 式 的 减法 运算 : 
funetionT = rinus(tp,9q} 
过 POLYNOMVMINUS Implemettbp - qd fter polynoms- 
PP = Polynomtp); 
司 = Polynomldg); 
K= jengthkgq-cy - lenugthfp.e 
T= polynomt[zerosf1 KK) pe] - [zerosfl -ko ge 


> 乘法 运算 
多 项 式 的 乘法 实际 上 可 以 表示 为 系数 向 量 的 卷 积 ， 可 以 由 conv() 冰 数 直接 获得 ， 上 破格 以 
如 下 重 载 定义 多 项 式 的 乘法 运 贷 ， 
functiont = ImtimesfP.q) 
号 POLYNOMVMTIMES ”ImplementP* qd for PolyDnorms， 





P = Polynomfp); 
马 = polynomtqj; 
T 一 poiynomcenwtP-e 站 -1 
全 。 乘 方 运算 
多 项 式 的 乘 方 运算 具 限 寺 正 整数 乘 方 的 运算 ， 其 mn 次 方 相当 于 将 该 多 项 式 自 环 n 次 
芳 n=0， 则 结果 为 1。 这样 我 们 就 可 以 重 载 定义 多 项 式 的 乘 方 运算 为 : 


funetion p=mpPower(a,D) 





让 nm>=0, n=fleortmi a=polynom(al; p=1; 

站 站 > 一 丰 ， 

for =1:m PP=pxay end 

end 

Else, errorf'i Power should be a non-Tegative integeT 


end 


(4) 定义 了 类 之 后 ， 我 们 就 可 以 方便 地 进行 多 项 式 处 理 了 。 例 如 我 们 可 以 建立 两 个 多 项 
= 二 








理 言 
百 区 


计算机 程 三 吕 是 直 生 有 


as 














名 得 分 在 80 和 89 之 间 
SCD,Rank=' 良好 多 列 为 "良好 ' 等 级 
Casee 免得 分 在 如 和 79 之 阿 
Sij.Rank=' 玉民 名 麟 为 ' 及 格 ' 等 级 
Qtherwise 比 得 分 低 于 的 
S 人 .Rank=' 不 点 格 名 列 为 ' 相 及格 ' 等 级 
end 
end 
名 将 学 生 姓 和 名， 得分， 登记 筹 信 息 打印 出 来 
disp([ 学 生 姓 名 得分， 等 级 了 ;而 SP 
for 1=1:S; 
end 





dispfLS 人 .Natme,blanksI6)num2strfSftD.MLarkKs)blankstDhS0 Rank]); 
程序 运行 结果 如 下 : 
学 生 姓 名 。 得 分 


JacK 72 及 格 
Marry 83 慨 好 
Peter 56 不 长 检 
及 Dose 久 4 优秀 
Tom 100 


注 分 
2.4.5 try-catch 结构 





MN=4;A=magict3) 
try 


【 例 2-6] try-catch 结构 应 用 实例 





驶 没 置 3 行 3 列 矩 阵 各 
胡 _M= 上 CN 名 取 A 的 第 N 行 元 束 
cateh 
A_end= 上 (end,:) 和 氟 如 果 取 A(N.:) 出 销 ， 则 改 取 A 的 最 后 一 多 
ed 
lasterr 锡 显 直 出 错 原 内 
程序 运行 结果 如 个 ， 
生 _end 一 
了 了 
ans 一 


Index execeeds tnatrix dirnensiots 


2.3_ M 文件 编程 
指令 的 
是 -种 面 疝 对 象 的 高 级 语言 


不 癌 编程 语言 的 指令 与 功能 是 不 一 样 的 。MATLAB 
二 2 


册 护 和 效率 直 易学 易 用 的 优点 。 本 节 不 对 MATLAB 
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的 编程 语法 进行 详细 介绍 ， 贞 是 介绍 : 些 与 MATLAB 混合 编程 有 关 的 基础 知识 。MATLAB 
有 了 困 种 常用 了 作 方式 : 种 是 言 接 变 所 的 指令 行 操作 方式 ， 在 这 种 方式 下 ，MATLAB 被 当做 
一 种 高 级“ 数学 注 算 和 图 形 显示 此 ” 来 使 几 。 另 一 种 昨 M 文件 编程 方 式 。 

M 文件 有 两 种 类 则 : 脚本 文件 和 环 数 艾 件 。 它 们 的 扩展 名 相同 ， 部 是 “.m”。 脚 本 区 件 
是 种 简单 的 M 葡 件 ， 如 回 DOS 下 的 批 处 理 文 件 ， 由 一 连 帅 的 MATLAB 辣 令 组 成 ， 扫 行 
时 核 次 执行 。 脚 本 文件 中 的 语 包 可 以 访 癌 MATLAB 工作 区 (Workspace》 中 的 所 有 数据 ， 运 
行 过 程 由 产生 的 所 攻 变 星 部 是 全 局 变 是 . 困 数 文件 则 接收 得 入 的 参数 ,然后 执行 并 得 出 结果 ， 
下 面 是 -个 标准 的 男儿 结 榴 ; 























funetion [yj.y2|=PanmelionnarmeftX1.X2....Xny) 8 国 数 定 立 行 
各 4 函数 入 秋 部 分 
驴 Paramertets: yj].y2: 1 答 出 参数 
怠 XXX2，，,XTi /输入 参 玫 
二 
MATLAB 语句 1 鸭 数 二 体 
end 
在 上 面 的 完整 函数 结构 中 ， 和 名 netion 是 保留 池 。yl1y2 足 输 出 参数 ，xlx2, .sxa 旦 输入 验 





数 ， 以 名 开头 的 每 一 行 是 琢 数 的 注释 部 分 ， 主 要 用 于 注释 ， 坚 函数 帮助 信息 ， 如 函数 的 作用 ， 
输入 /输出 参数 以 太 版 本 信息 等 。 在 MATLAB 环 培 下 ， 通 过 help 命令 得 到 的 画 数 帮助 信息 部 
是 在 这 一 部 分 定义 人 的。 

其 实 ,脚本 文件 与 羡 数 文件 的 区 别 在 于 脚本 文件 没有 函数 定义 行 , 且 一 般 没 有 注释 人 居 ， 
也 没有 诸如 beginfend 之 类 的 分 界 符 ， 当 然 ， 脚 木 文件 也 可 以 洪 加 注释 信息 ， 以 % 开 闫 的 都 必 
注释 信息 .注释 信息 目 可 以 单独 成 行 ， 也 可 以 放 在 MATLAB 语句 的 后 而 。 相 应 地 ， 脚 本 文 
件 与 丽 数 文件 在 使 用 方法 、 变 芋 牛 在 周期 上 也 存在 着 兰 ， 归 纳 见 表 21。 值 得 说 明 的 疏 ， 
尽管 脚本 文件 没有 返回 值 参 数 ， 人 脚本 文件 由 的 变量 在 脚本 文件 执行 后 仍 保留 竺 二 作 区 间 。 






































表 2-1 脚本 文件 和 函数 文件 的 比较 
冰 数 立 什 
区 有 输入 和 输出 参 蓝 ， 可 以 接收 和 竹山 
者 所 
默 波峰 施 变 蔓 为 覆 同 澡 主导 ， 上 上 作 克 
辣 不 能 访问 
对 十 需要 区 次 执行 的 系列 命令 特别 有 赴 束 多 次 执行 ,向 卫 市 查 带 输入 / 输 山 区 
州 扫 











伙 攻 和 牛 在 问 其 操作 工作 芭 闻 中 购 蔓 据 

















因此 ， 肢 本 文件 和 靖 数 文件 适合 于 不 同 的 场合 .在 后 面 的 章节 中 将 会 看 到 ， 许 多 情 咒 下 
需要 函数 文件 ， 因 此 击 要 将 著 本 文件 转换 为 函数 文件 ， 转 换 方法 实 呈 上 非常 简单， 只 和 需要 在 
脚本 文件 前 面 漆 加 必要 的 和 数 定义 行 和 注释 信息 《可 以 知 略 ) 即 可 。 下 面 以 -个 简单 的 脚本 
文件 为 例 进 行 放量 

假设 有 一 个 名 称 为 lin_intp.om 的 脚本 文件 ， 该 函数 的 功能 是 假设 -- 条 直线 通过 《x171) 
和 《x2.y2) 两 点 ， 要 求 任 一 点 x 处 的 y 值 。 脚 本 文件 的 内 容 旭 下 : 











We 


民 








了 们 。 





损 上 An Script kitile to fnd anew value usirg tnear interpolation 
XI 一 ].0; 

X2 一 .30 

允 ] =29.3， 

3Y2=33.7， 

X21.10， 

TieWwWY 人 LUe=yY 1 XLS -XLSETY -1 





在 MATLAB 环境 下 ， 输 入 lin_intp， 得 到 newvalue=30.1800， 即 
> 了 in_ 训 外 
mewwvalue 三 
30.1800 


现在 要 将 脚本 文件 转换 为 函数 文件 ， 如 果 不 需要 计算 其 他 x 点 处 的 y 值 ， 林 以 简单 地 改 

为 【 设 闭 数 文件 名 为 L_interp.m) : 

hunction newvalue=1_interpl ) 

X1=1.0: 

X2 一 1.50， 

Y1=29.3; 

Ya=33.7; 

X 一 ] .10; 

HewWYyalDe 一 了 二 人 2-Y TH 和- 其 力 扯 -区 ] 有 


在 MATLAB 坏 培 下 ， 输 入 Linterp 得 到 的 返回 值 为 30.1800， 即 


>> interp 





as 二 


30.1800 


函数 1_interp 只 能 得 介 点 x=1.10 处 的 了 值 ， 可 以 通过 将 x 改 为 输入 参数 以 增加 灵活 性 ， 
假设 新 函数 文件 名 为 ]_ jnterpx.m， 则 函数 L_interp 可 改 与 为 : 
funetion hewvalue=]_intelpxfx] 
XIT=] 提 ; 
X2 二 1.50; 
yt=29.3; 
y2=33.7; 





DeWVwalue=Y1TCCY2-YT)AX2- 区 1 人 于 (二 


要 计算 点 x=1.10 处 的 y 值 ， 可 以 在 MATLAB 环境 下 键入 L_interpx(1.10) 即 
>> ]_interpxt] .1 DO) 





ans 三 


30.1800 


函数 1_interpx( ) 量 在 真 线 通过 两 点 〈xl,yt) 和 (x2,y2) 部 已 知 的 情况 下 的 函数 。 为 进 
步 增强 通用 性 ， 即 已 知 过 任意 两 点 ， 求 男 一 点 x 对 应 的 yY 值 。 假 设 新 图 数 名 为 L_intpoelation.m， 


。 了 1 。 





别 烧 数 ]_interpolation 可 改写 为 ， 
function newvalue=l_interpolation(x].y1;X2.Y2.X) 


味 Pararmeters: 


名 Jnput: 

名 Xl.yl: the location of the first Pixel 

拭 Xd2.ya: the location of the Second pixel 

经 共 : the xx location of the thirq PIXel 

作 Output: 

僻 newvalue: the y location of ihe third Pixel to be calculated 


TeWYa]Ue 一 YL ATY 了 -YXD- 史 1 人 本 [X- 入 上 3 





若 要 计算 遂 过 两 点 (1.0, 29.3) 和 【1.5, 33.7》 的 直线 在 点 x=1.10 处 的 位， 则 在 MATLAB 
环境 中 键入 Linterpolation 〈1.0, 29.3, 1.5, 33.7, 1.107， 轩 
>> 1 interpolationf1.0， 23.3，1.3, 33.7， 1 .10) 





ans 二 
30.1800 


此 数 L_interpolation ) 增 加 了 参数 说 明 ， 足 因为 它 的 输入 参数 较 饮 ， 必 须 进 行 说 明 以 万 伍 
用 户 使 用 。 

通过 本 例 可 以 看 山 ， 贿 木 文件 转换 为 通 数 文件 并 不 是 唯 的， 可 以 根据 问题 对 隐 煞 灵 洒 
性 的 要 求 进 行 适 汉 的 转换 。 


2.6_ M 文件 编程 规范 


本 编程 规范 主要 荐 眼 于 提高 M 文件 的 正确 性 ， 规 范 性 和 通用 性 ， 而 不 是 在于 扼 高 M 各 
序 的 效率 。 当 然 ， 编 程 规 范 并 不 是 强制 性 的 。M 文件 规范 大致 与 C、C++ 和 Java 的 编程 规 范 
相同 ， 有 些 针 对 MATLABH 的 特点 进行 了 修改 ， 接 下 来 突出 介绍 几 个 这 方面 的 筑 范 。 

(1) 表 数 名 和 文件 名 必须 相同 。 例 如 ， 冰 数 fliplr 存储 在 名 为 草 plrm 的 文件 中 。 

(2) 变量 的 名 字 应 该 能 够 反映 它们 的 意义 或 者 用 途 。 小 范围 应 用 的 变量 应 该 用 《 W 的 变 号 红 
名 ， 实 际 上 ， 类 多 数 变量 都 应 该 是 有 意义 的 变量 名 ， 短 变量 名 通常 作为 结 必 申明 时 必须 潮 明 
变量 的 保留 用 法 ， 当 然 ， 作 为 “草稿 变量 ”的 临时 存储 空间 或 者 索引 可 以 几 乔 名 字 。 

《33 多 构 体 的 命名 应 该 以 一 个 大 写字 丝 开 闫 ， 这 与 C++ 实际 编程 规范 一 致 ， 人 月 其 于 区 分 
结构 体 与 普通 变 晨 。 结 构 体 的 命名 应 该 是 异 示 性 的 ， 并 且 林 需 昌 包 括 子 段 名 。 例 如 
Segment,jength 相对 Segment.SegmentLength 来 说 更 加 合 刑 。 

(4 MATLABE 第 一 次 执行 一 个 M 文件 函数 时 ， 将 打开 相应 的 立 本 文件 主将 命令 编辑 成 
存储 此 的 内 部 表示 , 以 加 速 执行 以 后 所 有 的 调用 .如果 表 数 包 含 了 对 其 他 M 文件 冰 数 的 调用 ， 
它们 也 同样 被 编译 到 存 情 器 路 。 善 通 的 有 翔 本 M 文件 不 被 编译 ， 即 使 它们 是 从 函数 M 艾 件 内 
调用 ， 每 次 打开 财 本 M 文件 时 ， 都 逐 行 进行 注 炎 、 

(S) MATLABH 采 川 结构 化 的 程序 设计 。 纺 写 一 个 大 型 的 程序 时 ， 最 好 将 它 划 分 为 ~ 些 
小 的 模 蕊 ， 通 常 采 用 函数 的 方式 ， 以 增强 程序 的 可 读 性 和 可 测试 性 。 





















































e 祁 宁 。 





(6 MAILAB 支持 图 数 间 的 相 日 调用 。 

M 文件 可 以 包 会 两 个 以 上 的 函数 ， 第 一 个 函数 就 是 主 两 数 ， 遂 过 M 文件 的 名 字 
调用 这 个 鹃 数 ， 除 主 函 数 外 ， 其 祭 的 函数 就 是 子 函 数 。 子 范 数 只 能 被 本 文件 路 的 主 表 
琢 数 调用 。 符 一 个 子 函 数 以 它 自己 的 畏 数 定义 行 开始 。 主 函数 必须 排 在 前 面 ， 子 函 数 
可 以 任 间 排列。 下面 是 一 个 利用 子 函 数 的 例子 ， 

fbnction [avg， meql=newstatstu) 
驶 newstatms: 利用 内 部 函数 计算 平均 值 和 中 间 数 
0=]engthtuy]; 





avg=mean(u. mn 上 
med=imnedianfu, PT); 
function a=meargv, Dm) 8 子 数 
吃 mear: 计算 平均 值 
a=suUrmnfvJzn， 
function mid=medianfv .mn) ， A 子 明 数 
名 median: 计算 中 间 数 
W=SsaortlvV]; 
这 temin, 2)==] 
m=wftn+J)A 2 
e1Se 
TO=Cwtn.2)+wn72HLA2; 


ed 
(33 自己 编写 的 函数 最 好 在 编写 时 就 添加 注释 ， 包 括 答 入 /输出 人 参数、 解释 用 法 以 
需要 的 改进 等 信息 ， 以 增强 函数 的 可 读 性 和 可 用 性 。 经 验 表 明 ， 在 写 代码 的 癌 时 就 加 
比 后 来 再 补充 注释 要 好 。 








就 可 以 
数 和 子 
的 距 序 


及 可 能 
上 注释 





《8》 冰 数 可 以 没有 或 具有 一 个 或 多 个 输入 参数 ， 也 可 以 没有 或 县 有 一 个 或 多 个 输 昌 


参数。 


(9) 函数 可 以 按 少 手 数 M 文件 中 所 规定 的 输入 和 输出 变量 进行 调用 ， 但 不 能 多 于 函 


孝 M 文件 中 所 规定 的 输入 和 输出 变量 教 上 日， 如果 输 入 和 输出 变量 数 日 多 于 函数 M 
function 语句 所 规定 的 数目 ， 旭 调用 时 自动 返回 -个 错误 。 
《10) 当 函 数 有 一 个 以 上 输出 变量 时 ， 输 出 党首 包 舍 在 括 导 内 。 例 如，[V, D] = 癌 





文件 中 


如 各 ) 


(il 当 调 用 一 个 函数 时 ， 和 输入 和 输出 参数 的 数 日 在 枯 数 内 是 规定 好 的 。 孙 数 工 作 宇 间 
变量 nargin 包含 输入 参数 的 个 数 : 函数 工作 空间 变量 nargout 包含 输出 参数 的 个 数 。 事实 上 ， 

















这 些 变量 管用 来 设置 默认 输入 变量 ， 并 决定 用 户 所 希望 的 输出 变量 。 例 如 ，MATLAB 
国 数 linspacef ) 丰 下 ， 

functiony = linspacetq1,d2.mn)》 

僻 LINSPACE Linearly spaced vector， 

喇 LINSPACEIX1. X2) Benetates a row vector of 100 linearly 

声 eqdually spaced Points between 其 ] and 共 2. 

禾 

芝 LINSPACEI(X1L, X2 N) generates NM points between 其] amd 愉 

多 ForN<2.LINSPACE returns 兵 2， 


提供 的 


= 3 。 





See also 工 OCSPACEE，:， 


COpyright 1984-2002 The MathYWorks， Inc. 
SRevision: .12 中 $Date: 2002702705 13:47:28 有 


让 margjin == 


&n 红 


nm= 100， 


y= [dlI+Om-2)xd2dlttloorn)-l) d2]; 


这 里 ， 如 果 用 户 只 用 酚 个 输入 人 驳 数 调用 linspacef )， 例 如 linspace(0,10)， 则 产生 100 个 对 
据点 ， 相 反 ， 如 果 输 入 参数 的 个 数 是 3， 例 如 linspace(0,.10.530)， 则 第 一 个 参数 站 定 数据 点 的 
个 数 ， 即 只 产生 50 个 数据 点 。 

(12) 冰 数 可 以 有 一 个 眠 多 个 输出 参数 。 

例如 MATLAB 提供 的 冰 数 sizef )。 这 个 函数 不 是 “个 M 误 件 半数 〔 它 是 一 个 内 兽 函 数 )， 
它 的 帮助 文本 说 明了 输出 参数 的 选择 。 

finection [varargeout] = Sizefvarargin》 
顺 SIZE Si7ze of array- 


喷 
驼 
名 
侈 


4 





下 = SIZE(CKY foT M-by-N maatfix 基 , returns the two-element 

row vector 也 = [M. M] containing the number of rows and colhinms 
让 he miatrix， For N-D arays, SIZE(X) Teturns a 1-by-N 

Veetor of dimension Jengths， Trailing singleton dimensions 

are jgEnOred， 

[MN] = SIZE(X) for matrix X, retumrns the number of Tows amd 
colurmns in 飞 as Separate DuUtput variables. 

EM1.M2.M3,..,MMN] = SIZEIX) Treoarns the sizes of the first M 

由 mensions of artay X， 开 the nnimber et output argurnents NM does 
rot equal MDIMSIX), 由 en tor: 


N>MNDHVWSI(X), size returns ones jn the "extra” variables， 
ie ,outputs NDIMS4)+1L through N， 
MN<NDIMSIXJ MN contains the prnoductof the Sizes of the 
TeEmaining 直 imensions, 1.e.. imensions N+] through 
NDIMS(X)， 


M = STIZEI(X,DIM) returns the length of he 出 mefsion sSDecitied 
by the scalar DIM For exarmple SIZE 有 1) returns the mutnber 


Of rOwS， 


When SIZE is applicd to Java array, the nuimber et Fows 


驼 Teturned is the length of the Jaya array and 也 e mutnber of eejurnns 
使 车 ways ll， WhenSIZE is applied te 3a .Java array Of arrays, the 


缉 tesuit desctibes only the top 必 vel array in the HtTaY of atTaYS. 
史 SeealsoLENGTH, NDIMS. NUMEL. 


驴 ”Copynght 1984-2004 The MiathwWorks, Inc- 
的 $REevision: 5.13.4.3 和 8 $Date: 2004704116 22:96:29 吊 


名 Built-in 名 netion， 


计 mnargont = 一 站 
buittint size ，varaTgiri:]); 
else 
[varargoutf 1:nargout]] = builtinf size，varargin1 jy 


em 


媳 果 函数 仅 出 现 一 个 输出 参数 ， 则 返回 一 个 二 元 素 的 行 ， 包 含 行 数 和 列 数 ， 相 反 ， 如 琳 
出 现 两 个 输出 参数 ， 则 sizef ) 分 别 返 回 行 和 列 。 在 M 文件 函数 里 ， 变 量 nargout 可 用 来 检验 
输出 参数 的 个 数 ， 并 按 要 求 修正 输出 变量 的 创建 。 

(13) 一 个 函数 说 明 一 个 或 多 个 输出 变量 ， 但 没有 要 求 输出 时 ， 就 简单 地 不 给 输出 变量 
赋 任 何 值 ， 

例如 ，MATLAB 提供 的 计时 结束 函数 toc( )] 可 以 说 明 这 个 属性 。 

fuanctiont = toc 
巧 TOC Read the stopwateh trmer 
台 TOC,by itselft, prints the elapsed time (in SecOnds) Since TIC was USed. 





胸 “=TOC;saves the elapsedtime int instead of printing it out. 
扩 
区 SeealsoTIC,ETIME, CLOCK, CPUTHME. 


区 Copyright 1984-2003 Jhe MarhWoanrks, lnc. 
售 。 $Revijsion': 5.12.4.23 $Date; 2004704710 23:33:08 册 


冯 Nete ithat toc is jmplemented as a baliltin fnetion for efficiency. 和 ny changes 
怠 划 由 is fle ww 记 not echange the behavior of toc. This file is provided ak 
侣 an exatmiple ofhow touse the 'global' keyword only. 


驴 TOC tses ETIHME and the value of CLOCK saved by TI 
global TICTOC 
让 jsSemptyfTICTOC} 
errorf'MATLAH:toc:callTicFirst，You must call TIC before calling TOC-); 
end 


让 Phargout < 1 


* 5S。 





disptsprinttrElapsed tiime is 邓 f seconds. etitmelelockTICTOCY: 
们 15 
ft = etimefelock.TICTOC 


en 可 

















如 果 用 户 不 以 输出 参数 调用 toe( )， 例 如 在 MATLAB 环境 下 直接 输入 “>wtoc”， 则 不 指定 
输出 变量 的 值 ， 函 数 在 命令 窗口 显示 函数 工作 空间 变量 elapsed_time， 但 在 MATLAB 人 作 空 
间 再 不 创建 莹 量 。 相 反 ， 划 | 果 tocf ] 是 以 “> out=toc” 调 用 ， 则 按 变 量 out 将 清 逝 的 时 间 返 回 
到 命令 馆 口 ， 

《i4)》 表 数 有 它们 日 己 的 专用 工作 空间 ， 它 与 MATLAB 的 1 作 空 间 分 开 。 

畏 煞 内 变量 与 MATLAB 工作 空门 之 癌 唯 -一 的 联系 是 前 数 的 输入 和 输出 变量 。 如 果 丙 数 
的 任意 一 个 箱 入 作 量 值 发 牛 变化 ， 则 其 变化 仅 郁 数 内 出 现 ， 不 影响 MATLAB 工作 空间 的 
变量 ， 国 数 内 所 创建 的 变 痢 只 驻 留 在 函数 的 工作 率 间 ， 商 且 只 在 函数 执行 期 辣 临时 存在 ， 以 
后 就 消失 。 因 时 ， 从 一 个 调用 到 上 一 个 调用 ， 在 盟 数 工作 空间 存储 信息 是 不 咎 能 的 。 然 向 使 
用 全 局 变量 就 提供 这 个 能 力 。 

(15) 如 果 一 个 预定 的 变量 在 MAIILAB 工作 空间 重新 定义 ， 则 不 会 延 俘 到 丽 数 的 工作 灾 
间 。 逆 向 有 同样 的 属性 ， 即 函数 内 的 重新 定义 变量 不 会 延伸 到 MATLAB 的 工作 空间 中 。 

(16) 当 调 用 - 个 函数 时 ， 输 入 变 基 不 会 拷 册 到 咀 数 的 工作 空间 ， 但 使 它们 的 值 在 琴 数 
内 可 恋 。 然 而 改变 输入 变量 内 的 任何 值 ， 数 组 就 挝 贝 到 函数 工作 空间 。 如 果 输 出 变量 与 输入 
变量 相同 ， 例 如 ， 泉 数 xfon (xX, yz) 中 的 x， 那 么 就 将 它 措 贝 到 郴 数 的 工作 空间 。 内 兹 ， 
为 了 节约 存储 和 加 快速 度 ， 最 好 从 大 数 组 中 抽取 元 素 ， 然 后 对 它们 进行 修正 ， 曾 不 是 使 整个 
数组 措 贝 到 函数 的 工作 空间 。 

《17) 如 果 变 胡说 明基 全 局 的 ， 函 数 可 以 与 其 他 函数 、MATLAB 工作 室 间 和 递归 调 川 本 
身 共 享 变 量 。 为 了 在 表 数 内 或 MAILAB 上 工作 室 间 中 访问 全 局 变量 ， 在 舍 一 个 所 和 希望 的 工作 
空间 ， 变 量 必 须 说 明 是 伞 局 的 。 

全 局 变量 的 使 用 以 MATLAB 审 供 的 责 数 tic 和 toc 为 例 ， 它 们 合 在 一 起 .| 作 。 


fanction tac 







































































号 TIC Start a stopwatch trmer 


铝  The sequence of eommands 


呈 TIC, operation, TOC 
氟 prints the number of seconds reduired for the operation. 
只 


名 SeealsoToOc CLOCK ETITIME, CPUTIYE. 


喇 “CopyTight 1984-2002 The MtathwWorks，Inc， 
入  $Revision: 5.11.4.14 和 3 $Date: 2003710116 04:S2:00 中 


镶 Note that tic is immplemerted as a builtin function for efficiency. 和 ny changes 


免 tothis 有 le will not change the behavior of tic. This 站 le 这 proviqed as 


的 an example of how te use the global keyword only. 


二 了 问 二 





部 TIC stmply stores CLOCK in alobal variable， 
globgil TICTGC 
TICTOC = clock: 


fiunction it = toc 


多 TD Read the StoPpwateh HRRET， 


镶  TOC by ltSc Prints De elapsed LUrue (in seecondsj since TIC was Used， 


外 =TOCI Saves 由 eelapsed time imtt instead of printing 直 DuUt. 


氏 SeealsoTiCc. ETITUME CLOCR.CPUTIVE. 


铝 ”Copyright 1984-2003 The MathWorks, Ine. 
驼 $Revision: 5.12.4.2 吊 $Date: 2004704710 23:33:08 和 $ 


呈 MNote thattoc is implemented asabuiltin fuinction for eiciency. 和 ny changes 


名 1 由 is 有 je wj] net ehange the behavior of toc. Ehis file 1s Provideqd as 


驼 an example ofhow to use the lobal keywerd only- 


号 TOC uses FETIHME and the value of CLOCK saved by 工 IC， 
global TICTOL 
让 isempty(CTICTOC) 


erorfMATLAB:toc:ealtTicPirst You mustecall TIC betore calling TOC .人 


ermd 
让 margout< ] 

由 spfsprinttfEIapsed tmne is 匈 f seconds etimetclock TICTOCJ) 
else 

tf= etimmetelock, TICTOC 7 


enmd 


在 冰 数 ticf ) 中 ， 变 量 TICTOC 说 明 为 全 局 的 ， 因 此 它 的 慎 由 调用 函数 clock( ) 米 设 定 。 
以 后 在 通 数 toc( ) 中 ， 变 量 TICTOC 也 说 明 为 全 局 的 ， 让 tocl ) 访 问 夺 储 在 TICTOC 中 的 值 。 
利用 这 个 值 ，tocf ?计算 自 执 行 丽 数 ticf ) 以 来 消逝 的 时 间 。 值 得 注意 的 是 , 变量 TICTOC 存在 








于 tes(O) 和 tocf 的 工作 空间 中 ， 而 不 在 MATLAB 工作 空间 中 。 


18》 实际 编程 中 ， 无 论 什 么 时 候 应 尽量 避免 使 用 全 癌变 量 。 














如 果 用 了 全 局 变量 ， 建 议 全 局 变量 名 要 长 ， 可 包含 所 有 的 大 写字 母 ， 并 有 选择 地 以 音 次 











出 现 的 M 文件 的 名 字 开 头 .如 果 遵 循 建议 , 则 可 以 将 全 局 变量 之 间 不 必要 的 互 作 用 减 至 最 小 。 
例如 ， 如 果 另 一 冰 数 或 MATLAS 工作 室 间 说 明 TICTOC 为 全 局 的 ， 那 么 它 的 值 在 该 冰 数 或 
MATLAB 工作 空间 内 可 被 改变 ， 市 函数 tec 会 得 到 不 同 的 、 可 能 是 无 意 立 的 结果 。 

《19) 涛 在 MATLAB 路 输入 个 符号 ， 则 按 变量 、 内 置 函 数 和 外 部 秀 数 的 顺序 搜索 例 





























如 ， 输 入 “scow” 则 MATLABR 首先 认为 cow 是 一 个 变量 。 如 ; 


它 不 是 ， 那 么 MATLAB 认 


为 它 是 一 个 内 置 函数 。 如 果 还 不 是 ，MATLAB 则 在 PATH 所 规定 的 路 径 上 检查 外 部 函数 ， 如 


果 没 有 乒 到 则 提示 出 鲁 . 


27。 


(20) 从 国 数 M 文件 内 可 以 调用 脚本 文件 。 在 这 种 情况 下 ， 脚 本 文件 查看 珊 数 工作 空间 ， 
不 但 看 MATILAB 工作 空间 。 从 琐 数 M 文件 内 调用 的 脚本 文件 不 必用 调用 函数 编译 刻 内 存 。 


明 数 每 调用 一 次 ,它们 吏 被 打开 和 解释 。 
执行 。 

















21) 国 数 可 以 递归 调用 ,， 即 M 文件 本 数 能 测 | 
function itorget(my 
名 TIEORGOT Recursive Funetion 人 all] Exarmple 
纺 “Copyright tc) 1996 by Prentice-Hall.Ine 


村 nargImn== 一 0n=20:end 
计 my>] 
disp( ITwil remember tp do my hormework. ) 
iforgot(n-1]) 
Se 
disp(C Maybe NOTI 7) 


end 


调 甩 这 个 函数 出 现 如 下 情况 : 


> iforgot10) 














工 will rernermnberto do my PoraewWotk- 
[ will remember to do my hoimework， 
IT wirermernpbet to do TYy homewerk. 
Iwill rememtber to do Imy homewerk， 
LIwalitemember tn do tmY homewoTk， 
IT will remember to do my homewotk. 
ITwillremempertio do my homewotk- 
TI will femember to do my homewofk. 
1 will reineTapeT to do my DoImEwOrK， 
Maybpe NOTI 





因此 ， 从 函 M 文件 内 调用 脚本 文件 减 慢 了 冰 要 的 


它们 本 身 ,。 例 如， 考虑 一 个 函数 itorgot( ); 


递归 调用 函数 功能 在 许多 应 用 场合 是 有 用 的 。 在 编制 要 递归 调用 的 函数 时 ， 必 须 确 你 会 
终止 ， 否 则 MATLAB 会 陷入 死 循 环 。 最 后 ， 在 一 个 递归 函数 内 ， 如 果 变 量 说 明 是 件 局 的 ， 
则 该 全 局 变量 对 以 后 所 有 机 数 调用 是 可 用 的 。 在 这 个 意义 下 ， 全 局 变量 变 成 天 态 的 ， 并 在 轩 





数 调用 之 间 不 会 消失 。 


(22) 当 函 数 M 文件 到 达 M 文件 终点 ， 或 者 磺 到 返回 命令 retum 时 ， 结 束 执行 和 返回 。 


return 命令 提供 了 一 种 结束 一 个 函数 的 简单 方法 ， 而 不 必 到 达 文 件 的 终点 。 


(23》 MATLAB 函数 error( ) 在 命令 窗口 显示 一 个 字符 蛙 ， 放 弃 滑 数 执行 ， 把 控制 权 返 加 





绍 键 盘 。 这 个 函数 对 提示 画 数 使 用 不 当 很 有 用 ， 例 如 在 以 下 文件 片段 中 ， 
让 1ecgthfvaly>1 
errOT( 多 AL imustbe 业 SCalar 


end 


= 人 全 = 





这 里 ， 划 | 乐 变 盟 val 不 是 一 个 标量 ， 旭 error( ) 显 示 消 息 字 符 趾 ， 把 控制 权 返 回 给 命令 窗 








口 和 键盘 . 





24) 当 一 个 函数 的 输入 参数 的 个 数 超出 了 规定 的 范围 时 ，MATLAB 画 数 nargchkf ) 握 供 


了 统一 的 啊 订 。 函 数 margchk( ) 为 : 
fanction [varargout] = nargchkfvararginy 


5NARGOCHRKE Validate number of input argurnents. 


名 MSGSTRUCT = NARGCHKILOW HIGH,N, struct Terttns an appropriate error 


镶 1message Structure 十 N is not between LOW and HIGH. ITN is in the 
够 specified range. the message Structure ji ernpty. The message Structure 


锅 hasatarminimum two fielgs， message and identifier'， 


呈 MSG =NARGCHRILOYWHIGH NT Teturns an appropriate erraor TnesS3Ee StriniE 证 
名 NisnotbetweenLOWwW and HIGH. Ti 让 is NAROCHR retums an empty matrix， 


名“ MSG =NARGCHKILOWHIGH,Nvstring) js the same 
名 MSG =NARGCHKILOW HIGH.N)， 


免 

名 Exarmnple 

呢 erornargehk(t, 3, Datein。 structD) 
绍 


全 SeealsoNARGOUTCHKE NARGIN NARGOUT INPUTNAME， PRROR， 


名 “Copyright 1984-2002 The Ma 中 Works, lnec. 
区 $Revision: 5.12.4.3$ $Date: 2003711706 15:42:09 


操 Built-in tnetiot， 


让 nargout 一 
builtinenargchk varargin{ :1 
elSe 
[yarargout ] :mnargeutj] = builtinf nargchk'，varargin{f:]; 


end 


可 以 通过 “error(nargchktnaregin,2. 3)" 说 明 在 一 个 M 文件 函 煞 内 的 典型 用 渤 , 如 末 nargin 
的 值 小 于 >， 函数 errorf ) 像 前 面 描述 的 那样 进行 处 理 ，hargchkt ) 返 回 宁 符 串 “没有 足 侣 的 输 
入 参数 ”如 果 nargin 的 值 大 末 5， 困 数 erorf ) 执 行 处 埋 ，nargehkf ] 返 回 宁 符 串 “ 太 多 输入 参 














数 ” 如 果 margin 在 2 一 5 之 间 ， 冰 数 erorf ) 简 单 地 将 控制 传递 给 下 一 个 语 4 


JJ，nargchkf ) 返 品 


一 个 空 字符 串 。 也 就 是 说 ， 当 它 的 输入 参数 为 宝 时 ，error( ) 函 数 什 么 也 不 做 。 


(25) MATILAB 运行 时 缓存 了 Toolbox 子 日 录 太 其 子 日 录 中 所 有 M 文 
以 便 MATLAB 可 以 很 快 地 找到 和 执行 机 数 M 文件 。 被 缓存 的 M 文件 被 渔 
执行 这 些 函数 ， 以 后 发 生变 化 MATLAB 将 只 扫 行 以 前 编译 到 内 存 的 函数 ， 





件 的 名 字 和 位 置 ， 
做 是 只 读 的 。 姑 果 
不 管 已 改变 的 M 





文件 。 市 且 在 MATLAB 执行 后 ， 九 果 M 文件 被 加 到 Toolbox 日 录 中 ， 那 么 它们 将 不 出 现在 
缓存 里， 因此 不 可 利用 .。 所 以 , 在 M 文件 明 数 的 使 用 中 ， 最 好 把 它们 人 存储 在 Toolbox 月 有 水 外， 


= 也 全 


或 存储 在 MATLAB 上 日 好 下 ， 育 至 它们 被 认为 是 完备 鸣 。 当 它们 完备 时 ， 将 怎 倍 物色 一个 具 
读 的 Toelbox 日 条 或 其 陪 日 孙 内 。 

(26) 在 Toolbox 日 及 外 ，MATLAB 跟踪 M 文件 的 修改 口 期 ， 所 以 ， 当 过 到 “个 以 前 编 
译 旬 内 存 的 M 文件 丽 数 时 ，MATLAB 把 已 编译 的 M 文件 的 收 改 日 期 与 在 嫌 蔓 上 的 M 文件 
比较 。 划 果 日 期 是 相同 的 ，MATLAB 执行 已 编译 的 M 文件 。 相 反 ， 如 果 在 磁 意 .| 的 M 区 件 
是 新 的 ，MATLAB 清除 以 前 已 编译 的 M 文件 ， 旦 编译 这 个 新 的 和 修改 过 的 M 文件 。 

(27) 在 mnfilename ) 函 数 内 ， 有 要 执行 的 M 文件 的 名 字 。 例 如 ， 正 在 执行 M 义 件 
funetionm 时 ， 胃 数 的 工作 空间 包含 变 旦 mtfilenarmne， 它 包含 函数 字符 串 。 这 个 变量 也 存在 二 
脚本 文件 里 ， 在 这 种 情况 下 ， 它 包含 了 本 执行 的 脚本 艾 件 的 名 字 ， 

总 之 ,函数 M 交 件 提供 了 :个 简单 的 扩展 MAILAB 功能 的 方法 。 事 实 上 ，MATLAB 术 
身 的 许多 标准 时 数 就 是 M 文件 中 数 。 


2.7 M 文件 评述 此 


M 文件 具有 方便 航 算 阵 和 数组 运算 ， 妨 程 效率 高 ， 但 是 运 算 效 率 较 低 ， 即 与 贝 统 的 
Fortran、C 相 比 ， 实 现 相同 功能 的 M 代码 更 简捷 、 高 效 ， 但 运算 时 间 较 长 。 : 释 和 而 言 ， 孝 希 
望 程序 运行 速度 快 “: 些 。 在 问 己 编号 MATLAB 程序 代码 时 ， 记 果 执 行 效 府 不 满意 ， 往 征 希 
望 找到 程序 执行 缓慢 的 瓶颈 。 为 此 ，MATLAB 所 供 了 一 个 称 为 评述 器 《Profile) 的 优化 和 测 
试 工 只， 帮助 用 户 在 程序 中 售 找 哪些 代码 最 需 间 运算 时 间 。 
评述 文件 是 通过 命令 profile 来 实现 的 ， 其 调用 方式 为 ， prefile 关键 站 。 甚 中， 关键 字 品 
为 ，om、of、resume、clear、viewer 等 ， 

下 而 通过 :个 具体 的 例子 来 说 明 如 何 使 用 profile 分 析 M 文件 的 瓶颈 。MAITLAB 环境 下 
输入 


Profile on 





















































plet(magicf35) 
profile VieYrer 
Profsavcfprofilet info) profile_resuits 
profile on -history 
Piottmagic 人 (4 
PP= profiletinfo 
forn = tsizefp.FunctionHistory'2) 
让 也 FunetionHistory(1,m== 
str = Entering fbnction: 
else 
str 一 ”exiting functtom: 
end 
dispt[str P,FunctinmTableIP.Fu nctionmHjstotry(2.n7.FEunctionMNamej); 


ed 


”30 


运行 结果 如 图 2-1 所 示 。 注 意 ， 得 到 的 统计 数据 ， 如 Total recorded time 等 ， 会 因为 所 使 
用 的 计算 机 性 能 的 不 同 而 不 同 。 从 图 中 可 以 看 到 概略 的 统计 结果 ， 点 击 每 个 函数 后 可 以 看 到 
更 详细 的 统计 结果 ， 如 图 2-2 一 图 2-4 所 示 。 


File Edit Debug Desktop indow Help 3 
和 和 虽 人 骆 寺 转 由 


stop Profing| Runthis code: | 了 |] @@ Profie time: 22 sec 


Profile Summary 
Gensrated 0D2-Noy-2005 14D2-D0 


Function name Calls Total Time SelfTime* Total Time Plot 
(dark band = selftime) 











newplot 1 0.160 s 0.000 s RSRERRAERREEERST 
Wiplot> Ax Pl 1 0.120 s 0.000 s RAR 
graphicsprivatevclo 1 0.110 s 0.010 = BR 
Setdiff 2 0.090 s 0.080 s TENEG 
| gcf 0.030 s 0.030 s 
ismember 1 0.010 s 0.010 s 卫 
rivateclo> 1 0.010 s 0.010 s 





图 2-1 文件 评述 器 运行 界面 
汪 Profile Smmm ar 了 (上 


文件 区) ”编辑 下 ) ”查看 GO) 收藏 巡 ) 工具 区 ) _ 汪 瑟 且 县 | 纺 
多 落户 ) - GO - [zx] 到 :| 六 7 各 家 下 三 攻 二 0 吃 1 ~ 
地 址 @) [ 轴 上 WMATLABT\work\profile results\Eile0 html 1 [ 辽 号 ~ 


This is a static copy of a profile repont 





也 orme 


Profle Sumnlary 
Cexzerarea 02-Ncv-2005 74-02-0D7 
Euncton name Calls Total Tine SelfTimne* TIotal Tome Flot 
(dark band 一 self htme) 


mnevweplot 0.160 s 0.000 s 


Devwplot>ObserveAxesTJexztPlot 0.120 s 0.000 s 
SraphblicspPrivatevclo 0.110 s 0.010 s 
setdifr 0.090 s 0.080 s 
EcE 0.030 s 0.030 s 


lsrmmetnber 0.010 s 0.010 s 
二 天 SF 二 本 和 








图 2-2 ”生成 的 超 文 本 报告 


*。31]1 。 


prorrogawawaawasmwuamsueaaaa 人 
Pile Edit 有 Desktop 时 ndow Help 








newplot (1 call, 0.160 sec) 1 
Generated 02-Nov-2005 1404:40 


M-function in fle CAMATLAB7NoolboxmatlabvgraphicsWmewplot m 
[Copy to new window for comparing multiple runs 


Refresh | 
F Show parent 人 es F Show busy lines Show child fles 
区 Show M-Lint results Show file coverage [” Show file listing 


Parents (calling functions) 
No parent 


Lines where the mosttime was spent 


Line Number Code Calls TotalTime %Tme Time Plot 


Z4 ax = 0bservekxesjextPlot (ax，h 1 0.120 s 75 0320 ERR 





图 2-3 每 个 函数 的 详细 报告 








EITHER -9x 
2 2 人 
刀 汉 | 印 | 申 
ee Runtnscodc 站 可 @ponetmeieosec 
下 ”WEXEEIOT TITE 3 TFT AI AS XITEST ECFESTE RE ET ” 国 
估 


入 See also HDLD，ISHOLD，FIGURE，AXES，CLA，CLF 


% Copyright 1984-2003 The iathWorks，Irc 
只 和 Revision': 5.13.6 3$ $nate- 2004704/10 23.2854 了 
叶 uilt-in funct1ion 


| 1 _39 if nargin == 0 | isempty Chsave) 
《001 1 _40 hsave = []: 


| 
| 
《nn0l 1 _45 fig = 【[]; 
0.01 1 _46 ax = []; 


1 48 if ~isempty 人 hsave) 





图 2-4 每 段 代 码 的 详细 执行 时 间 报 告 
2.8 提高 M 文件 执行 效率 的 技巧 


MATLAB 是 一 种 解释 语言 ， 执 行 效率 总 体 上 比 C、Fortran 等 通用 编程 语言 低 。 因 此 ， 编 
程 时 需要 尽 可 能 地 提高 M 文件 的 执行 效率 。 一 方面 可 以 利用 MATLAB 述评 器 分 析 编 写 的 代 
码 中 影响 M 文件 效率 的 瓶颈 所 在 ， 然 后 运用 一 些 编程 技巧 改进 程序 的 执行 效率 。 下 面 归 纳 几 
。32 。 





种 提高 M 文件 执行 效率 的 技巧 。 
2.8.1 天 量化 操作 


MATLAB 变量 的 基本 类 型 是 矩阵 ， 央 为 它 芋 要 是 为 向 量 和 甜 阵 操作 设计 的 。 当 对 和 矩阵 的 
每 个 元 素 循环 处 于 时 ， 运 算 速度 很 慢 。 因 此 ， 编 程 时 应 尽量 对 矢量 和 矩阵 整体 编程 ， 而 不 是 
如 同 其 他 的 程序 设计 语言 ， 循 坏 操作 年 阵 的 元 素 。 可 以 采用 矢量 化 操作 ， 把 循 玉 矢量 化 ， 这 
样 既 可 以 提高 编程 效率 ， 也 可 以 提高 程序 的 执行 效率 。 

让 面 是 一 段 常见 的 循 末 程 序 段 ; 

1 = 人 
fort = 0:.01100 


1 = i+li 








y( = Sinft); 


如 了 昌 

可 以 采用 天 量化 操作 ， 改 到 为 : 
t = 总 :1:100; 
yY=Sinftj; 





MAILAEB 提供 了 专门 的 国 数 以 测试 程序 的 这 行 时 间 。 冰 数 tie 为 计时 开始 ,toc 为 计时 红 
束 。 在 MATLAH 环境 干 运 行 上 面 的 循环 程序 ; 





> ci; 

1 = 心 ; 

tort= 0:.01:100 
1 = i 寺 1 


y 提 一 Sinlt: 
en 


me 


elapsedqd_tirne 三 


]2.368D0 
F 面 的 得 短 一 段 程序 天 要 耗 时 12.368s。 在 MATLAB 环境 下 运行 矢量 化 后 的 程序 段 : 
2 tc; 
t 三 避 :.01:100; 
y 一 sinttJ; 


Ce; 


&lapsed_time 三 
0.0400 


工 面 的 程序 段 只 需要 0.04s， 可 见 通过 矢量 化 操作 可 使 执行 效率 提高 约 300 售 。 











信访 。 


注 ; 本 书 列 举 的 执行 时 间 是 在 Windows 2000 平台 ，Pentium 700M CPU 上 取得 的 ， 仅 殿 
硕 考 。 当 体 在 相同 的 条 件 下 执行 相同 的 代码 时 ， 执 行 时 间 也 可 能 略 有 善 异 。 末 书后 面 的 例子 
与 此 相同 


MATILAB 提供 的 常用 于 条 旺 化 操作 的 图 数 方 : 到 、any 、 直 任 、permute、repmat、logical、 
fnd、soft 和 sum 等 。 例 如 ， 语 名 repmat (A，mna) 将 输入 下 阵 A 模 同 和 线 阿 重复 。 使 用 半 
数 repmatf ) 鸭 例 节 为 ; 

2 由 一 [123 4456]: 
32 了 二 Tepmat( 点 ,之 3) 


>> 卫 

也 = 
1 2 3 ] 2 3 1 2 了 
斗 5 避 才 3 各 了 5 6 
] 2 3 ] 了 3 1 2 3 
才 有 扣 十 3 6 4 习 让 


2.8.2 ”给 数组 预定 义 维 


MATLAB 中 变量 在 使 用 之 前 不 需要 明确 地 定义 和 指定 维 数 。 但 当 玉 项 定义 数组 或 第 阵 的 
维 数 计 ， 每 当 需 赋值 的 元 素 下 标 超 山 现 有 的 维 数 时 ，MATLAB 就 为 该 数组 或 矩 际 扩 维 - -次 ， 
这 会 太 大 降低 程序 的 执行 效率 。 因 此 ， 数 组 预定 文 维 可 以 提高 程序 的 执行 效率 。 此外， 给 数 

组 预定 义 维 吉 以 提高 内 存 的 合用 效率 ， 否 则 数组 的 多 次 扩 色 维 会 增加 内 存 的 凡 片 : 














将 第 2.8.1 节 中 的 循环 程序 改写 如 下 : 
te3 
1] = 0: 
y=sizef1.10000);  。 %% 为 变量 y 预定 义 维 
fort=f001:100 





1 = i++]， 
YfD 二 Sinft)， 
end 


toec; 


elapsed_time = 


在 MATLAB 环境 下 运行 ， 则 ， 


3.53g 仆 


可 见 ， 通 过 给 变 民 y 顶 定 义 维 ， 执 行 时 间 从 !2.3680s 缩短 为 5.5580s， 效 率 提 剖 了 。 
MATLAB 提供 的 给 数组 预定 义 维 的 蝎 数 主 监 有 zeros，cell 等 ， 它 们 的 用 法 概括 于 表 2 











中 。 


.34-。 





表 2-2 给 数组 预定 兴 维 的 函 雪 
数组 类 型 





热学 数 让 Y= Fefosf1,1D0); 





昌 = eellt2.37 

纠 由 类 组 B113] = 1:3; 

下 | 之] 一 String 

四 陈 /数组 mintAi.A 为 其 年 阵 ， 返 回 征 阵 中 服 小 的 元 训 
所 阵 / 狂 组 max[a) 上 为 其 全 阵 ， 返 加 年 阵 中 起 类 的 元 束 




















Gata 一 TepiratfstructCxX |] 3].， 


了 13 


引 构 烙 组 





2.8.3 下 标 或 者 索引 操作 


在 MATLAB 中 ， 挎 阵 元 素 的 引用 可 用 两 个 下 标 来 表示 。 例 如 ，Ati, 小 志 示 拖 阵 第 ; 行 
第 j 列 的 元 素 ; Af 1 业 , 疙 表示 征 阵 A 的 第 j 列 的 前 个 元 素 ; AC, 六 表示 算 阵 的 第 j 列 的 所 有 
抑 素 。 求 饶 阵 A 的 第 j 列 元 素 之 和 的 表达 式 为 sum(AC i 

在 多 像 处 理 中 ,特别 是 视频 乓 缩编 码 小 ， 都 是 按 宏 块 或 子 块 进行 编码 的 。 例如 ， 航 设 和 
为 夏 始 网 像 ，y 为 编码 后 的 出 像 ， 可 以 采用 下 而 的 程序 段 计 算 编 码 后 独 像 的 峰值 作品 比 
PSNR: 


d= imeanl mearnf (X-y) 了 也 




















一 maxf maxfXt:)7 TaXCYC 
PSNR = 10+log10( md 》 


2.8.4 尽量 多 使 用 函数 文件 而 少 使 用 非 脚 本 文件 


尽量 多 使 用 函数 文件 叮 少 使 用 脚本 文件 ， 也 可 以 提高 执行 效率 。 因 为 每 次 调用 MATLAB 
的 欧 本 文件 都 需要 将 不 必 上 时 的 中 间 变 量 吉大 剑 内 存 。 函 数 在 用 时 被 编 详 成 了 伪 代 码 ， 只 币 
要 加 载 铝 内存- 次。 因此 ， 当 多 次 调用 同一 且 数 时 会 运行 得 快 一 些 。 


2.8.5 将 循环 体 中 的 内 容 转换 为 C-MEX 


当 必 须 合 用 for 循环 时 ， 可 以 考虑 将 循环 体 中 的 语 人 名 转换 为 C-MEX。C-MEX 足 将 M 
文件 通过 MATLAB 的 编 详 器 转换 为 可 执行 文件 . 在 Windows 环 谍 下 它 基 扩展 名 为 ,dl 的 
动态 链接 库 ， 可 以 在 MATLAB 环境 下 直接 执 行 。 这 样 ， 循 环 体 小 的 语句 执行 时 不 必 每 斌 者 
和 解释 【interpret。 一 股 米 说 ，C-MEX 文件 的 执行 速度 是 相同 功 能 的 M 文件 执行 速率 的 20 一 
40 倍 。 编 写 C-MEX 不 同 十 M 文件 ， 需 要 了 解 MATLAB C-MEX 规范 和 更 多 的 耐心 。 尘 运 的 
是 , MATLABE 扳 供 了 将 M 文件 转化 为 C-MEX 的 工具 。 怎样 料 M 文件 通过 MATLAB 编译 器 
转换 为 C-MEX 着 见 MATLAB 的 联机 帮助 文 或 本 书 的 第 4 至。 


2.8.6 内 存 优 化 


MATLAB 进行 复业 的 运算 需要 让 放大 量 的 内 在 。 合理 地 使 用 内 存 和 提高 内 存 的 使 用 效 
率 ， 可 以 提高 运行 速度 ， 减 少 对 系统 资源 的 占用 。 

































































= 了 5 * 





























1， 内 看 管理 函数 和 命令 

全 clear variablename 从 内 存 中 删除 名称 为 variablename 的 变 芋 ， 

记 &learall 从 内 在 中 删除 所有 的 变量 ， 

庆 save 将 指令 的 变 尼 存 入 磁 笑 ， 

关 load 将 saye 命令 在 入 的 变量 载 入 内 在。 

六 quit 退出 MAITLAB， 并 释 放 所 有 分 配 的 内 存 。 

pack 把 由 存 中 的 变量 存 入 和 磁 盐 ， 示 用 内 存 中 的 连续 空间 载 同 这 些 灾 量 . 考虑 到 执行 
效 雍 问题 ， 不 能 在 逢 环 中 使 用 。 

2， 节 约 内 存 的 方法 

关 避免 牛 成 大 的 中 间 变 式 ， 芽 删除 不 再 需要 的 师 时 变 里 ， 

关 ” 当 合用 大 的 短 阵 变 虹 时， 预先 指定 给 数 并 分 配 好 内 存 ， 避 人犯 每 次 临时 扩充 维 数 。 

盖 汉 程序 尘 要 生成 人 号 变星 数据 时 ， 可 以 考虑 定期 将 伙 基 与 公 梯 响 ， 然 后 清除 这 些 朗 
旦 。 当 需 要 这 些 变 其 时， 重新 从 伐 雌 加载， 

交 ”将 利 孟 中 数据 极 少 时 ， 将 全 所 阵 转换 为 稀 昼 敌阵 。 


2.9 小 结 


本 草 和 前 要 介绍 了 MATLAB 的 程 反 设计， 侧 于 于 MATLAB 的 编程 规范 ， 以 提 闹 M 区 件 
的 正确 性 和 通用 人 性。 当然， 编程 规范 并 不 是 强制 性 的 。M 文件 规范 人 丝 C、C++ 和 Java 的 编 
程 规 范 相 同 ， 有 有些 针对 MATLAB 的 特点 进行 了 企 改 。 此 外 ,对 MATLAS 文件 评述 器 和 提 疝 
M 区 件 执行 效率 的 技巧 也 进行 了 介绍 。 在 MATLAE 编程 中 ， 只 要 遵 镍 编程 才 范 并 合 型 利用 
所 高 M 艾 件 执行 效率 技 与 ， 就 可 以 编写 出 简 邱 如 高 获 的 代码 ， 








=。 36。 





第 3 章 MATLAB 混合 编程 简介 


3.1 进行 混合 编程 的 出 发 点 


MAILAB 是 种 “ 单 稿 纸 式 ” 的 程序 设计 语言 ， 尼 以 其 强大 的 计算 和 绘图 功能 、 大 量 稳 
定 而 品 靠 的 算法 库 、 高 效 的 编程 语言 和 忆 布 世界 各 地 的 紫 大 用 户 群 ， 成 为 数学 计算 和 算法 仿 
真 方 而 事实 上 的 标准 。 有 几乎 所 有 的 本 程 计 算 领 域 ，MATLAB 都 有 相应 的 工具 箱 提 供 支持 ， 报 
多 第 三 方 软件 述 华为 各 种 不 同 的 专业 开发 和 宠 善 MATLAB 的 动能 。 因 此 ，MATLAB 在 数值 
计算 领域 已 处 于 不 可 替代 的 领先 地 位 。 

然而 ，MATLAB 存在 的 以 下 缺点 限制 了 它 作为 通用 的 软件 开发 平台 

六 MAILAB 作为 一 种 解释 性 语 吉 ， 迪 解释 边 运行 尽管 # 编 程 让 率 极 高， 但 是 运行 效率 

却 较 许 多 通用 的 软件 开发 平台 低下 ， 即 实现 相同 功能 的 代码 尽管 较 Wisual C++、 
Fortran 等 的 代码 短 ， 但 执行 时 间 相 对 较 长 . 
> MAILAE 语言 编写 的 M 文件 是 文本 文件 ， 可 以 用 文本 编辑 器 打 并 ， 且 不 能 脱离 
MATLAB 环境 运行 。 因 此 ，MATLAB 编写 的 程序 不 利于 程序 的 保密 。 
三 尽管 MATILAB 60 以 后 的 版 本 在 图 形 用 廊 接 口 GUI) 上 有 很 大 的 改进 ， 伍 与 通用 
的 编程 平台 * 相 比 还 是 不 人 辟 灵 活 。 而 且 ，MATLAB 6.5 与 硬件 接口 的 能 力 还 较 美 ， 不 
能 访问 一 些 底 层 的 厂 件 设备 。 
MATLAB 存在 的 以 上 缺点 限制 了 它 相 能 作为 通用 的 软件 开发 平台 。 和 而 常见 的 通用 编程 平 
台 如 Wisual Basic, Visual C++ 利 Fortran 等 ， 尽 管 纯 能 强大 和 灵活 ， 但 编程 效率 较 低 ， 尤 其 是 
当 需 要 快速 验 证 算法 时 。 另 外 ， 还 存在 不 同 平台 之 问 程序 的 移植 问题 ， 例 如 各 、Fortran 平台 
下 编写 的 程序 肖 要 在 MATLAB 环境 下 运行 时 ， 妇 时 改 成 M 文件 ， 会 如 重 编 程 者 的 负担 。 
因此 ， 冬 现 MATLAB 和 Visual C++ 的 混合 编程 ， 有 助 于 发 挥 MATLAB 和 Visual C++ 各 
月 的 优势 ， 降 低 开 发 难度 ， 缩 得 编程 时 间 。 幸 运 的 是 ，MATLAB 的 应 用 程序 接口 《API) 为 
实现 MATLAB 与 Visual C++ 等 通用 编程 平台 的 混合 编程 提供 了 可 能 。 



















































































3.2 MATLAB 应 用 程序 接口 简介 


MATILAB 与 外 部 的 数据 和 程序 交互 是 很 有 意 广 的 , 通过 它 与 其 他 编程 环境 的 详 互 ,可 以 
扩充 MATLAB 卓 人 的 数值 计算 和 图 形 显示 巧 能 ， 而 避 开 其 执行 效率 较 低 的 缺点 。 
有 具体 地 说 ，MATLA 也 接 山 包含 以 下 功能 。 











1，MATLAB Compiler 


通过 MATILAB 和 白带 的 C 编译 器 CCompiter), 可 以 将 其 M 文件 转换 成 为 CAC++ 代 码 文 件 ， 
并 生成 必 坚 的 DLL， 再 通过 Visual C++ 编译 器 生成 可 独立 执行 的 应 用 程序 ， 这 种 方式 可 以 直 
接 调 用 其 中 的 库 函 数 ， 牛 成 并 发 布 不 依赖 MATLAB 的 可 执行 文件 。 当 然 ， 并 不 是 所 有 的 M 


和 了 











文件 MAILAB 网 至 器 如 能 够 将 它们 纲 译 为 可 执行 程序 ， 在 某 些 情 况 卜 ， 编 详 咒 的 作用 是 各 
限 的 。 为 此 ,MAITLAB 提供 了 运行 时 服务 回 【Run time Servery， 利 用 它 可 以 很 好 地 弥 补 编 详 
器 的 不 中 。 














2.、MATLAB 引 苞 


MATLAB 引擎 库 契 一 系列 过 程 ,在 C 或 Fortran 等 语言 中 用 它们 来 兰 用 MATILAB. 这 样 ， 
将 MATLAB 作为 一 个 计算 引 警 ， 在 后 台 和 运行. MATLAB 引擎 冰 数 库 在 用 户 程 夯 与 MAILAB 
进程 之 问 起 桥 沟 作用 。MATLAB 提供 了 一 个 胃 数 库 ， 用 它们 启动 和 终止 MATLAB 进程 、 作 
输 数 据 并 传递 要 在 MATLAB 中 处 理 鬼 辣 令 。 






































3，MAT 数据 文件 共享 数据 


MAT 文件 是 MATLAB 特定 的 数据 文件 格式 ，MATLASB 提供 了 “ 些 操 作 MAT 数据 文件 
的 API 函数 。MATLABE 可 以 与 其 他 语 吉 平台 通过 MAT 文件 实现 数据 共享 ， 从 而 存 助 于 减轻 
其 他 平台 的 计算 负 提 。 

4， 通 过 ActiveX 


ActiveX 足 一 类 自动 化 技术 的 总 称 ，MATLAB 支持 组 件 自 动 化 ， 对 于 传统 的 DDE 和 
ActiveX 自动 化 ，MATLAB 也 提供 了 们 而 的 支持 。 通 过 AetiveX， 可 以 在 MATLAB 和 共 作 软 
件 平台 建立 客户 机 /服务 器 体系 结构 ， 方 便 鼻 此 的 变 万 。 


SRMjidevarMatcam 








Mideva 是 由 MathTools 公司 推出 的 MATLAB 替代 编译 环境 ， 所 供 了 将 MATILAEB M 文 
件 转换 为 C、CPP 源 代码 、DLL 和 EXE 文件 的 功能 ， 相 对 于 MATLAB 自 审 的 纺 详 器 ， 用 
Matcom 转化 代码 要 简单 和 方便 竺 多。 查 是 Mideya 在 很 和 多方 呆 也 有 限制 ， 比 如 ， 对 struct 等 
类 的 支持 有 缺陷 ， 部 分 绘 儿 语句 无 法 实现 或 得 不 到 准确 图 像 ， 尤 其 是 一 维 图 像 ， 














6、MATLAB<LIB> 数 学 座 











MATLAB 中 提供 了 大 量 几 CAC+H+ 重 新 编写 的 MATLAB 库 函 数 ， 包 括 初等 数学 明 数 、 线 
性 代数 函数 、 征 阵 操 作 函 数 、 数 值 计 和 质 丙 数 、 特 听 数 学 函数 、 插 俏 冰 数 等 ， 可 以 直接 供 CAC++ 
语 训 调用 。 央 此， 利用 MATLAB 的 数学 库 ， 可 以 在 Visual C++ 中 充分 发 控 MAILAB 的 数位 
计算 荔 能 ， 并 上 且 可 以 不 恢 种 MATLAB 软件 运行 环境 ， 











7，、MATLAB Add-in 


MATLAB 60 以 后 版 木 对 其 Compiler 进行 了 较 大 改进 ， 支 持 更 多 的 数据 鞠 型 ， 现 星 的 优 
化 功能 ， 唱 重要 的 是 MATLAB Add-in 提供 了 -个 MATILAB 和 Visual C++ 直接 集成 的 途 生 . 





MATLAB COM Builder 








MATLAB 提供 了 COM 生成 器 。COM (Component Object Model 弓 件 对 象 模型 挟 一 项 
比较 复杂 的 技术 。COM 牛 成 器 提供 了 实现 MATLAB 独立 应 用 程序 的 一 种 新 途径 。 它 是 把 
MATLAB 开发 的 算法 做 成 组 件 ， 这 些 组 件 作 为 独立 的 COM 对 每 ， 可 以 直接 被 Visual C++、 
= 3 吕 。 














Visual Basic、Delphi 或 其 他 支持 COM 的 语言 所 引用 。MATLAB COM Builder 几乎 广 持 
MATLAB 所 在 的 函数 ， 特 别 适 合 在 M 文件 较 人 、 使 用 Matecom、 调 用 MATLAB 数字 库 或 使 
用 MATLAB Compiler 等 无 法 实现 时 使 用 。 


Xeel LinKk 


可 在 Excel 工作 空间 和 MATLAB 工作 区 之 了 间 通 佑 ， 遂 过 链接 Excel 和 MATLAB， 可 以 
从 Execel 工作 表 和 宏 编 程 工具 中 获得 MATLAB 的 数值 计算 和 图 还 绘制 功能 , 能 够 在 两 个 环境 
之 间 变 换 数据 。 











说 WELATLAB Builqer for 已 xcel 


MATLAB 还 提供 了 一 个 称 为 Excel 咎 成 器 的 工具 。 利 用 庶 工 具 ， 可 以 生成 DLL 组 件 或 
者 VBA 代码 。 利 用 DLL 组 件 ， 可 以 进行 与 COM 生成 器 纽 件 相 似 的 操作 。VBA 代码 则 可 以 
在 Exeel 的 Visual Basic 编辑 器 中 直接 使 用 。 

守 项 MATLAB 与 其 他 编程 语言 混合 编程 的 方法 很 多 。 通 常 ， 根 据 混 侣 编程 时 是 否 币 要 
MATLAB 运行 ， 可 以 分 为 两 大 类 :， MATLAB 在 后 台 运 行 和 可 以 脱离 MATLABH 环境 运行 。 事 
迪 上 ， 这 些 方法 各 有 优 缺 点 ， 有 只 体 使 用 时 需要 结合 开发 者 的 且 体 情况 。 无 论 使 用 哪 种 方法 ， 
运行 环境 的 设置 以 及 MATLAB 的 数据 结构 和 语法 都 是 关键 内 容 : 


3.3 几 种 常见 的 混合 编程 方法 简介 


3.3.1 使 用 MATLAB 自 带 的 MATLAB Compiler 


自 MATLAB 53 以 后 的 版 本 痢 白 带 了 C 语言 的 编译 器 《Compiler)。 最 新 的 版 木 是 
MATILAB 70 版 本 和 带 的 Compiler 40。MATLAB Compiler 的 作用 是 将 MAILAB M 文件 特 
化 成 CAC++ 代 码 〔 也 就 是 通过 通常 所 用 的 mce 命令 )。 因 此 ,MAILAB Compiler 古 MATLAB 
混合 编程 的 基础 。 生 成 的 CIC++ 源 代码 需要 用 CIC++ 编 译 器 编译 链接 成 独立 应 用 程 序 。 作 将 
M 文件 转 成 独立 应 用 程序 的 过 程 中 生成 CC++ 文 件 ， 诛 则 上 它 是 可 以 被 其 他 CAC++ 代 码 调用 
的 ， 编 译 器 可 以 通过 设置 mec 命令 的 选项 ， 将 M 文件 编译 成 动态 链接 库 叉 件 、CAC++ 文 件 、 
可 执行 文件 等 一 系列 文件。 

图 3-1 足 MathwWorks 介绍 MATLAB 混合 编程 的 免费 网 络 课程 《Web Seminar) 大 于 
Compiler 的 截屏 图 。MATLAB 有 其 他 很 多 混合 编程 方式 ， 实 际 上 都 是 通过 MATLAB Compiler 
记 现 的 ， 例 如 后 文 将 介绍 到 的 MATLAB Add-in 和 MATLAB Builder for COM 等 。 

最 新 的 MATILAB Compiler 40 版 本 将 M 程序 转换 成 CAC++ 代 但 功能 仍 有 很 多 限制 ， 体 
现在 以 下 儿 个 方向 : 

不 能 转换 脚本 M 文件 ， 只 能 转换 M 函数 ， 

不 能 使 用 MATLAB 对 和 象 ; 

不 能 用 训 put 或 者 eval 操作 MATLAB 空间 变量 ; 

不 能 动态 地 命名 变 苦 ， 然 后 几 load 成 者 save 命令 来 操作 ; 
不 能 处 理 具 有 内 套 调用 其 他 M 文件 的 M 文件 : 

不 能 使 用 MATLAB 内 联 函 数 。 
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MATLAB Compiler 


se Automatically converts YouUr 
MATLAB programs into stana-alone 
applications and software 
Componentis 






es Supports full MATLAB language and 
most toolboxes 






4 


as Software components include 
C and C++ libraries 
-Excel add-ins and COM objects 
(require MATLAB Builder products) 


-at 
上 4 
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@ Free deployment model 
3-1 MATLAB 自 带 的 C 语言 编译 器 
3.3.2 利用 MATLAB 引擎 


MATLAB 引擎 函数 库 是 MATLAB 提供 的 一 组 接口 函数 ， 它 允许 用 户 在 自己 的 应 用 程序 
中 对 MATLAB 函数 进行 调用 。 因 此 ， 可 将 MATLAB 作为 一 个 计算 引擎 使 用 ， 让 其 在 后 台 运 
行 ， 这 样 可 以 简化 前 台 用 户 程 序 的 设计 任务 。 

当 用 户 使 用 MATLAB 引擎 时 ， 采 用 C/S〈 客 户 机 /服务 器 ) 模式 ， 相 当 于 在 后 台 局 
动 了 一 个 MATLAB 进程 。MATLAB 引擎 函数 库 在 用 户 程序 与 MATLAB 进程 之 间 起 桥梁 作 
用 ， 完 成 两 者 的 数据 交换 和 命令 的 传送 。 在 Windows 系统 中 通过 ActiveX 完成 。 

MATLAB 引擎 (Engine) 有 以 下 和 典型 的 功能 应 用 : 

(1) 调用 MATLAB 特有 的 强大 数值 计算 和 分 析 等 函数 进行 运算 。 

数值 计算 如 矩阵 运算 是 MATLAB 的 强项 , 通过 MATLAB 计算 引擎 可 以 轻松 地 实现 矩阵 
运算 、 图 形 显示 等 计算 复杂 度 高 的 操作 。 

(2) 可 以 为 一 个 特定 的 任务 构建 一 个 完整 的 系统 。 

前 台 客 户 机 台 可 以 采用 诸如 Visual C++ 之 类 的 通用 编程 平台 ,通过 Windows 的 动态 控件 
与 服务 器 MATLAB 通信 ， 向 MATLAB Engine 传递 命令 和 数据 信息 ， 从 MATLAB Engine 接 
收 数据 信息 。 此 时 ，MATLAB 完成 较 复 杂 的 数值 计算 、 分 析 和 可 视 化 任务 。 因 此 ，MATLAB 
Engine 可 以 简化 应 用 程序 的 开发 ， 取 得 事半功倍 的 效果 。 

MATLAB Engine 几乎 可 利用 MATLAB 全 部 功能 ， 但 是 需要 在 机 器 上 安装 MATLAB 软 
件 ， 而 且 执行 效率 低 ， 因 此 这 种 方式 的 实用 性 较 低 ， 在 商用 的 应 用 软件 开发 中 不 宜 采用 。 


3.3.3 利用 ActiveX 控件 


ActiveX 是 一 种 支持 组 件 集成 的 Microsoft Windows 协议 ， 通 过 ActiveX 技术 可 以 将 不 同 
环境 下 开发 的 组 件 集成 到 一 个 应 用 程序 中 。ActiveX 同时 是 面 对 对 象 技术 的 一 种 ， 属 于 基于 
组 件 对 象 模型 (COM) 的 子 类 。COM 为 所 有 的 ActiveX 对 象 定义 了 对 象 模 型 ， 每 个 ActiveX 
对 象 支持 一 定 的 接口 ， 也 就 是 不 同 的 方法 、 属 性 和 事件 。 

MATLAB 支持 两 种 ActiveX 技术 : ActiveX 控制 器 和 ActiveX Automation。ActiveX 控制 
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骼 可 以 将 不 同 的 ActiveX 控制 集成 在 一 个 应 用 中 ， 而 ActiveX Automation 是 一 种 允许 一 个 应 
用 程序 《客户 端 〗 去 控制 另 一 个 应 用 程序 “服务 器 端 〗 的 协议 ， 因 此 ， 它 允许 MATLAB 控 
制 其 他 AetiveX 组 件 成 者 被 其 他 ActiveX 所 控制 。 当 MATLAB 控制 其 他 ActiveX 组 件 时 ， 
MATLAB 作为 … 个 Automation Client; 当 MAILAB 被 其 他 ActiveX 控件 怪 制 时 ，MATELAB 
就 是 一 个 Automation Server。 


3.3.4 利用 MAT 文件 


MATLAB 与 共 他 编程 环境 的 数据 变 互 是 通过 MAT 数据 文件 来 实现 的 。MAT 文件 是 
MATLAB 系统 保存 文件 的 默认 文件 格式 , 它 把 数据 文件 存储 为 二 进 制 格式 。 这 种 格式 为 不 同 
平台 或 不 同 应 用 程序 间 共 享 MAILAB 数据 提供 了 一 种 便利 的 机 制 。 一 般 情 况 下 ， 不 需要 了 
解 MAT 文件 的 具体 格式 ， 因 为 MATLAB 提供 了 些 API 函数 来 简化 MAT 文件 的 读 取 与 存 
储 ， 而 MATLAB API 完 伞 屏蔽 MAT 文件 格式 。 因 此 ， 在 某 些 情况 下 ， 可 将 计算 复杂 度 高 的 
操作 交 由 MATLAS 来 处 理 ， 而 在 其 他 应 用 程序 中 通过 其 时 MATILAB 生成 的 MAT 数据 文件 
达到 减轻 编程 负 拒 的 月 的 。 


3.3.5 CC-ME 关 


所 谓 MEX 是 MATLAB Executable 的 缩 忆 ， 即 MATLAB 的 可 执行 程序 。 在 Windows 环 
境 中 ， 它 是 扩展 名 为 DLL 的 动态 链接 库 。 MEX 文件 是 MATLAHB 调用 其 他 语 宥 编写 的 程序 
或 算法 的 接口 。 它 符合 MATLAB 的 调用 格式 ， 可 以 在 M 程序 中 直接 调用 。 

与 MATLAB 引擎 API - 样 ，MATLAB 也 提供 了 一 组 用 于 MEX 程序 的 应 用 程序 接口 。 
在 MATLAB 中 ， 吉 以 调用 用 户 自 己 开 发 的 CC 或 Fortran 子 程序 ， 通 过 MATLAB 的 API 基数 
库 将 C 或 Fortran 子 程序 编译 成 MEX 文件 ， 以 便 在 MATLAB 环境 中 直接 调用 或 链接 这 些 子 
程序 ， 和 达到 提高 计算 效率 的 日 的 。 

MEX 文件 具体 有 以 下 几 个 方面 的 应 用 ; 

”对 于 其 些 已 知 的 CC 或 者 Fertran 子 程序 ， 可 以 通过 MEX 方式 在 MAILAB 环境 中 直 

接 调 且 ， 而 不 必 重 新 编写 相应 的 M 文件 。 

2 对 于 影响 MATLAB 执行 速度 的 for，while 等 循 杀 ， 可 以 编号 相应 的 C、Fortran 子 

程序 完 成 相同 的 功能 ， 并 编译 成 MEX 文件 ， 提 高 运行 速度 。 

> ”对 于 一 些 需 要 访问 硬件 的 底层 操作 ， 如 AD 、PyA 或 中 断 等 ， 可 以 通过 MEX 文件 

直接 访问 ,克服 MATLASB 对 硬件 访问 功能 不 足 的 缺点 ， 从 而 增强 MATLAB 应 用 程 
序 的 功能 ， 

当然 ， 并 不 是 所 有 的 程序 都 适 人 台 用 MEX 实现 。，MATLAB 编程 效率 极 高 ， 因 此 一 般 在 
MATLAB 环 编 程 时 尽量 以 MATLAB 编程 为 主 ， 只 是 对 那些 耗 时 或 者 MAITLAB 功能 变 限 
的 部 分 采用 MEX 编程 


3.3.6 利用 Mideva/yMatcom 


























Mideva 是 MathTeols 公司 推出 的 :种 MATLAB 编译 开发 软件 平台 , 提供 对 MAILAB 程 
序 文件 4M 文件 ) 的 解释 拭 行 和 开发 环境 支持 , 湾 软 件 有 为 Boriand C++、Visual C++ 和 Visual 
Basic 等 编程 语 省 开发 的 不 同 版 本 ， 日 前 其 版 本 已 经 到 了 4.5 版 。 软 件 仅 为 6.5MB， 可 以 通过 
访 癌 其 站 点 wwwmathtools.com 免费 下 载 试 用 一 个 月 。 
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Mideva 是 一 个 集成 的 调试 编辑 环境 ， 捉 供 了 比 MATLAB 更 强大 的 编辑 、 调 试 荔 能 ， 如 
语法 罕 出 显示 、 批 量 诈 释 等 。 而 Matcom 是 Mideva 的 内 核 ， 它 是 一 个 基于 C++ 矩阵 函数 序 
Matrix 的 一 个 MATLAB M 文件 与 CPP 文件 的 转换 程序 。 

Mideyva 提供 的 功能 相当 强人 ， 因 为 它 包 售 了 近 千 个 MATLAB 的 基本 功能 函数 ， 通 过 必 
要 的 设 秆 就 可 以 下 接 实现 与 C++ 的 混合 编程 ， 而 不 必 再 依赖 MATLAB。 同 时 ，Mideva 握 
供 编 详 转换 功能 ， 能够 将 MATLAH 函数 或 编写 的 MATLAB 程序 针 换 为 C++ 形 陈 的 DLL， 从 
而 实现 脱离 MATLAB 环境 对 MATLAB 国 数 和 和 过程 的 有 效 调 用 ， 这 样 就 在 可 能 实现 对 
MATLAB 强大 工具 箱 函 数 的 利用 。Mideva 不 仪 可 以 转换 独立 的 脚本 文件 ， 也 可 以 转换 陷 套 
脚本 文件 . 

Matecom 的 不 足 之 处 在 二 对 stmuct 等 类 的 支持 有 缺陷 , 而 月 部 分 绘图 语句 无 法 实现 或 得 不 
刨 准 确 图 像 ， 尤 其 足 三 维 图 像 。 因 此 ， 在 木 涉 及 到 三 维 绘图 以 及 M 文件 不 太 大 的 情况 下 运 合 
使 用 。 


3.3.7 利用 Matrix<LIB> 实 现 混合 编程 









































MidevarMatcom 提供 一 种 实现 汽 合 编程 的 方法 ， 它 白 动 将 M 文件 转换 为 C、CPP 文件 ， 
然后 将 生成 的 C、CPP 代码 搁 由 到 Visual C++ 工程 中 ,从 而 可 降低 开发 难度 。 实际 上 ,Matcom 
的 内 核 是 … 组 称 为 Matix<LIB> 的 C++ 库 。 它 是 一 个 矩阵 数学 库 ， 提 供 了 一 个 双 精 度 Matrix 
类 型 一 -Me<double>， 它 可 以 是 复数 年 阵 、 实 数 先 阵 、 稀 朴 拖 阵 甚 至 N 维 抑 阵 ， 这 个 库 共有 
500 多 个 衣 数 ， 涉 及 线性 代数 、 多 项 式 数学 、 信 号 处 理 、 文 件 箱 入 /和 输出、 图像 处 理 、 绘 图 等 
方面 。 

其 实 我 们 可 以 在 Wisual C++ 工程 中 直接 按照 Matrix<LIB> 的 语法 编程 ， 即 可 实现 高 效 的 
编程 。 这 是 因为 Matrix<LIB> 的 函数 是 基于 和 矩阵 类 型 的 ， 估 多数 冰 数 原型 类 似 丁 MATLAB 冰 
数 。 实 际 上 ，Matrix<LIB> 是 将 一 些 很 有 用 的 MATITLAB 函数 封装 成 C++ 的 库 文 件 。 它 要 求 读 
省 对 CC++ 语 童 比 较 熟 悉 ， 适 人 台 对 CAC++ 语 言 比较 熟悉 的 用 户 使 用 ， 


3.3.8 利用 MATLAB Add-in 


MathTools 公司 被 MathWorks 公司 收购 后 ， 将 Visual Matcom 集成 到 了 MATLAB 6.0 版 
本 中 。 因此 , MATLAB 6.0 以 后 版 本 对 其 Compiler 进行 了 较 大 的 改进 , 支持 更 多 的 数据 区 型 、 
更 强 的 优化 功能 ， 更 重要 的 是 其 MATLAHB Add-in 提供 了 一 个 MATLAB 和 Visual C++ 百 接 集 
成 的 途径 。 

MATLAB Add-ia 具有 以 下 一 些 新 的 特征 : 

> 快速 地 集成 M 文件 到 C++ 的 工程 中 ,可 创建 独立 的 CAC++ 应 用 程序 或 C MEKX DLL: 

交通 过 M 文件 创建 共享 库 或 MEX 艾 件 ; 

内 售 Visual Matrix Wiewer， 调 试 过 程 中 可 以 查看 所 阵 变 量 的 利 ; 

交 ”直接 修改 M 源 文 件 而 不 是 修改 后 成 的 CC++ 文 件 ， 方 便 快 捷 地 打包 应 用 程序 等 。 

MATLAB 7.0 版 本 自 带 的 编译 器 Compiler 4.0 不 再 支持 这 种 方式 ， 主 要 原因 是 其 牛 成 的 
CC++ 代 码 不 够 百 观 ， 用 户 通 常 难以 修改 。 

























































































3.3.9 MAITLAB COM Builder 
COM 是 以 组 件 为 发 布 单元 的 对 象 模型 。 由 于 COM 是 建立 在 二 进 制 级 别 上 的 规范 ， 丙 以 
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组 件 对 象 之 间 的 交互 规范 不 依赖 于 任何 特定 的 开发 语言 。COM 适合 于 不 同 语言 之 间 的 协作 
开发 。COM 开发 架构 是 以 组 件 为 基础 的 ， 因 而 可 以 把 组 件 看 做 用 于 “搭建 ”软件 的 积木 。 

MATLAB 提供 了 COM 生成 器 。 COM 生成 器 提供 了 实现 MATLAB 独立 应 用 程序 的 一 种 
新 途径 。 它 是 把 MATLAB 开发 的 算法 做 成 组 件 ， 这 些 组 件 作 为 独立 的 COM 对象， 可 以 直接 
被 Visual C++、Visual Basic、.Delphi 或 其 他 支持 COM 的 语言 所 引用 ,可 以 生成 不 依赖 MATLAB 
环境 的 独立 程序 ， 因 此 可 获得 最 快 的 运行 速度 ， 不 需 进行 代码 转换 ， 使 得 编程 风格 一 致 ， 可 
读 性 好 。 图 3-2 是 MathWorks 介绍 MATLAB 混合 编程 的 免费 网 络 课程 关于 MATLAB Builder 
for COM 的 截屏 图 。 

实际 上 ，COM 生成 过 程 实际 是 上 通过 MATLAB 的 C 语言 编译 器 mcec 生成 的 。 其 实 ， 
采用 mcc 和 mbuild 命令 完全 可 以 实现 MATLAB COM Builder 的 全 部 功能 , 只 不 过 MATLAB 
COM Builder 为 用 户 提供 了 一 组 更 加 友好 的 图 形 用 户 界面 。 


MATLAB Builder for COM 


se Automatically generates an Independent 
COM oblject ffom your MATLAB application 


sa COM object can be integrated with any TESTO 
COM-compliant technology, including: 演 和 本 三 | 
一 Visual Basic 
一 COr C++ 


一 Microsoft Excel 
一 Web applications (ASP) 





-可 生 轩 | 
@ Free deployment model YA 


图 3-2 MATLAB Builder for COM 功能 
3.3.10 MATLAB 和 Excel 混合 编程 


Excel 和 MATLAB 在 图 形 显示 和 数值 计算 上 各 有 优势 .因此 ,MATILAB 提供 了 Excel Link 
和 MATLAB Builder for Excel 两 个 工具 实现 两 者 的 混合 编程 。 

Excel Link 是 一 个 在 Windows 环境 下 实现 MATLAB 和 Excel 相互 链接 的 插件 。 通 过 对 
Excel 和 MATLAB 的 链接 ， 用 户 可 以 在 Excel 工作 区 间 里 ， 利 用 Excel 的 宏 编 程 工具 ， 使 用 
MATLAB 的 数据 处 理 和 图 形 处 理 功 能 进行 相关 操作 , 同时 由 Excel Link 来 保证 两 个 工作 环境 
数据 的 交换 和 同步 更 新 。 使 用 Excel Link 时 ， 不 必 脱 离 Excel 环境 ， 而 是 直接 在 Excel 工作 区 
或 者 宏 操 作 中 调用 MATLAB 函数 。 

MATLAB Builder for Excel 是 MATLAB 专门 为 Excel 提供 的 生成 器 工具 ， 能 够 轻易 地 将 
复杂 的 MATLAB 算法 转换 为 独立 的 Excel 加 载 安 (插件 )。 使 用 者 可 以 像 使 用 其 他 Excel 
加 载 宏 功能 一 样 地 参照 MATLAB 算法 。MATLAB 所 建立 的 Excel 加 载 宏 函 数 依赖 计算 功能 
强大 的 MATLAB 函数 库 ， 其 运算 速度 可 以 比 利 用 VBA 所 建立 的 Excel 加 载 宏 快 许多 。 从 
MATLAB 所 建立 的 Excel 加 载 宏 函 数 也 可 以 免费 分 享 至 任何 Excel 应 用 程序 。 利 用 该 工具 ， 
可 以 生成 DLL 组 件 或 者 VBA 代码 。 利 用 DLL 组 件 ， 可 以 进行 与 COM 生成 器 组 件 相似 的 操 
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作 。VBA 代码 则 可 以 禁 Excel 的 Visual Basic 编辑 跨 呈 直接 使 用 。 


接 


34 小 结 











木 章 人 在 分 析 MATLAE 与 其 他 高 级 语言 江 合 编程 出 发 点 的 基础 上 , 对 MATLASB 应 用 程序 





口 进行 了 简要 介绍 ， 重 点 说 明了 MATLAB 的 几 种 汕 抑 混合 编程 实 聘 方法 ， 希望 通 过 水 章 





的 学 习 ， 对 MATLABE 的 和 合 编程 有 一 个 总 体 上 的 认识 。 





第 4 章 C-MEX 编程 


4.1 C-MEX 简介 


MEX 文件 是 按 一 定格 式 、 使 用 C 语言 或 Fortran 语言 编写 、 由 MATILAB 解释 器 白 动 调 
用 并 执行 的 动态 链接 库 【Dynamic Link Library, DIEL) 峭 数 。 在 Windows 系统 中 ， 这 种 文件 
类 型 的 后缀 名 为 ,DLL.。 

MEX 文件 的 使 用 极为 方便 ， 具 需 在 MATLAB 命令 担 示 符 下 键入 MEX 文件 名 即 可 ， 这 
与 MATLAB 内 在 函数 的 调用 方式 完全 相同 。 当 用 户 执行 一 个 MEX 文件 时 ，MATILAB 系统 
将 首先 搜索 MATILAB 系统 的 所 有 可 搜索 路 和 从， 然后 截 入 并 执行 第 一 个 与 用 户 键入 的 文件 名 
相 亚 配 的 可 执行 文件 。 因此, 在 MATLAB 中 存在 两 种 类 型 的 可 执行 文件 ; MEX 文件 和 M 文 
件 。 当 系统 中 存在 名 称 相 同 的 两 种 类 型 的 可 执行 文件 时 ， 即 MEX 文件 和 M 文件 都 存在 时 ， 
MATLAB 系统 规定 ，MEX 文件 的 执行 优先 级 高 于 M 文件 ， 这 样 MEX 文件 将 优先 执行 。 

此 外 , 由 于 MEX 文件 没有 提供 应 用 的 帮助 信息 . 一 般 情 况 下 , 每 当 构造 一 个 MEX 文件 ， 
就 应 当 编写 一 个 MATLAB 的 M 文件 ， 作 为 相应 的 帮助 文件 ， 并 且 存 放 企 同一 日 汇 下 。 在 该 
M 文件 中 ， 不 包 合 任何 可 执行 语句 ， 只 是 包公 … 些 帮助 信息 ， 几 来 对 同名 的 MEX 文件 的 功 
能 及 输入 /输出 参数 进行 说 明 。 因此， 用 户 就 可 以 在 MATLAB 提示 符 下 ， 通 过 使 用 help 命令 
获取 帮助 。 在 MATLAB 的 解释 器 中 ，help 傅 令 仅仅 对 与 命令 同名 的 M 文件 进行 查找 ， 而 忽 
略 对 MEX 交 件 的 合 找 。 

MATLAB MEX 文件 旦 MATLAB 系统 的 外 部 程序 调用 接口 。 通 过 它 , 用 户 可 以 完成 以 上 
功能 

可 以 在 MATLAB 系统 中 像 调 用 MATLAB 的 内 在 函数 一 样 调用 已 经 存在 的 用 忌 话 井 
Fortran 语言 编写 完成 的 算法 ， 道 过 添加 入 口 程序 mexFunction， 而 无 顷 将 这 些 函 数 重 新 编 
为 MATITLAB 的 M 文件 ， 从 而 使 资源 得 伸 充 分 利 州 。 

当 使 用 MATLAB 进行 大 规模 的 数据 处 理 时 ，MATLAB 往往 由 于 执行 效率 的 问题 而 显得 
力不从心 ， 这 时 可 以 使 用 其 他 高 级 编程 语言 进行 算法 的 设计 ， 然 后 在 MATLAS 环境 中 调用 ， 
从 而 大 大 提高 数据 处 理 的 效率 。 在 MATLAB 叶 ，M 文件 的 计算 速度 特别 是 循环 移 代 的 速度 
远 比 妇 语 言 宴 ， 因 此 可 以 把 要 求人 量 循 环 选 代 的 部 分 用 C 语言 编写 为 MEX 文件 ， 提 高 计算 

通过 MEX 文件 ， 用 户 可 以 直接 对 硬件 进行 编程 ， 如 A/D 采集 卡 ，D/A 输出 卡 等 ， 
于 数据 采集 或 控制 ， 进 一 步 拓 展 MATLAB 的 应 用 领域 。 


4.2 MEX 文件 系统 的 配置 


MEX 文件 的 编写 与 编译 需要 同时 具备 两 个 条 件 : -是 要 求 已 经 安装 MAILAS 应 用 程 厅 
接口 组 件 及 其 相应 的 工具 ， 另 一 个 是 要 求 有 合适 的 C 或 Fortran 语言 编译 器 。 另 外 ， 如 果 是 


dd5S。 






















































































亦 Windows 平台 上 ， 混 么 几 户 的 编译 器 笛 要 能 够 支持 32 位 的 Windows 动态 链接 库 ， 本 书 
十 要 以 Visual C++ 6.0 为 外 部 的 C 语言 编 详 器 ， 这 些 要 求 是 满足 的 。 办 此 ， 接 下 来 的 下 作 
是 对 MATLAB 系统 进行 配置 ， 以 便 让 MATLAB 系统 知道 使 用 哪 “个 编 详 器 以 及 编译 器 的 
参数 情况 。 

编 详 器 的 配置 文件 是 系统 配置 过 程 中 产生 记录 配置 信息 的 文件 ,后缀 为 .bat, 是 一 个 批 让 
埋 文 件 。 编 译 器 的 配置 文件 包括 - 些 关 于 编 详 、 预 编译 和 链接 阶段 的 特殊 标志 和 变量 ， 这 些 
标志 和 变量 标示 编译 过 程 的 每 个 网 辑 步 豆 。 

个 Windows 系统 中 编译 MEX 文件 , 监 先 对 MEX 文件 编译 器 的 默认 配置 文件 mexopts.bal 
进行 配置 编译 。 编 译 器 的 隔 乱 命令 为: 


> TeX -Setup 











Please choose your compiler for building external interface (MEX) files: 





Would you like mex to locate installed compilers [y]/n2? 提示 用 户 是 否定 位 编 详 回 ， 选 择 
“y"”， 则 MATLAB 继续 输出 以 下 全息， 


Select aeormpiler: 





Ti Digital Wisuail Porttan vetrsion 6.0 in CAProgram Files\Microsoft Visual Studio 
[2] Lee 各 Yersion 2.4 in 人 MATELABAASySce 

[3 Microsoft Visuat CHIC++ Yersion 和 和 记 妆 AProgram FilesvMiieroso 共 Yisual Studio 
[O] Nonme 


Compiler” 提示 用 户 选 择 编 详 器 ， 通 常 输入 “37”， 选 择 Visual C++。 


Please Yerify YOUr echoices: 


Compiler: Microsoft Visual CAC++ 在 旭 
Leeation: CAProgram Files\vicrosott Visual Studio 


Are these corect? (jyjjm; 提示 系统 找到 的 Visual C++ 安装 路 径 是 否 正确 ,通常 系统 可 以 
找到 中 铺 的 路 答 ， 央 此 得 入 “y ， 
Try to update options HIe: CADocuments and SettingsAdministratorApplication 
DatavMathWorksMATL 扣 BARI4Ymexopts.bat 
From template: CAMATLAB7ARBJNAWTN32unexoptsvmsvyc60uPts-bar 





Lone ,，. 


侍 此， 整个 配置 过 程 完成 。 


4.3 MEX 文件 的 结构 和 运行 


4.3.1 MEX 文件 结构 


下 商 以 MATLAB 软件 自 带 一 个 C-MEX 文件 为 例 ， 说 明 MEX 文件 的 络 构 ， 位 于 
* <MATLABrootsvexternexample” 日 录 下 的 timestwoc 结构 清晰 ， 体 现 了 C-MEX 文件 的 基 
本 框 朱 。 现 将 timestwoc 列举 如 下 《〈 略 有 删 减 ， 中 文 注 释 为 编者 添加 )》; 


。 46 。 








##imelude “mexh” 
症 
g tmesStwoc - eXamPle tounqd 训 和 PT guide 


炒 


ff ombutational function that takes a scalar and Gouble 让 . 


央 


* This 中 MIEX-file fear MATLASB. 

业 Copyrigtt 1984-2000 The MathWorks,， Imc， 
灿 

站 事 Revisipn: 1.8 甩 / 


fi 本 MEX 文件 的 崩 的 是 实 册 timestwo 的 功能 
Yoid timestwefdouble yfj, double x[]) 
| 

y[0] = 2.0*x[0]: 


zP 下 面 这 个 MexFunction 的 月 的 是 使 MATLAB 知道 如 和 何 调用 这 个 timestwo 图 数 
void ImexFunctionf intnlhs, rmxAmay *plhs[]， 





int nrhts， conat inXAATrray #Prhsll ) 
pnlhs: MATLABH 命令 行 方 式 下 输出 参数 个 数 
jplhs[]: MATLAB 命令 行 方式 下 输出 参 娄 
mirns: MATLAB 命令 行 方式 下 输入 参数 个 数 
Apprhs[]: MATLAB 命令 行 方式 下 输入 参数 
Qouble 本 X， 本 1 


inl rnrows, ncols; 


1 检查 输入 、 答 出 变量 个 数 
iffnrhs1=1y 1 

ImexXEITMSSTXL One input Teguired. 人 
| else ifnlns>1) 1 


ImexErrMsgTxtl "了 oo many Output ar&utrtients 


1 输入 必须 是 一 个 非 复数 浮 点 类 型 年 阵 


7 非得 输入 拷 阵 的 行 、 列 数 
mrows = PixCietMprhsTD]); 
ncols = InxCeNprhs[b]); 


1 淹 断 输入 年 阵 是 否 是 double 美 ， 沁 及 它 是 否 包 括 单个 元 素 
< 寺 7 。 





if ImxTsDoubie(prhs[ol mxIsComplexfprhs[OB1I 
Inrows==] 攻 本 neols==1))[ 
mexErrMsegTExXt( Inpul must pe anoneomPplex scalar douhle.); 


] 





开 为 输出 创建 一 个 多 阵 ， 显 然 这 个 卸 阵 也 应 该 是 1x1 的 
plhs[01= mxCreateDoubleMatnmxtrnrows:ncols，mxREAEL 


4 获得 指向 输入 .输出 矩阵 数据 的 指针 
xX = TDxGetPrPprhs[D|); 
y=ImxGetPrfplhs[D); 


# 凋 用 C++ 冰 频 timestwofy,x] 
人 rmeSIWOCY , 基 ) 
} 
可 见 ,，C 语言 MEX 文件 的 源 程序 主要 由 两 个 截然 不 阿 的 部 分 纽 成， 分 唱 用 于 完成 不 同 
的 任务 ， 第 一 部 分 称 为 计算 子 程序 ， 它 包含 了 所 有 实际 再 要 完成 计算 功能 的 源 代 码 ， 用 来 完 
成 实际 的 计算 工作 ， 即 为 用 户 以 前 所 编写 的 算法 和 程序 ， 由 于 它 是 以 毅 数 形式 存在 的 ， 所 以 
明 则 用 户 想 昌 将 一 些 已 经 纳 写 的 程序 利和 法 移植 到 MATLAB 环境 中 使 用 ， 天 需 要 将 算法 和 
程序 整理 成 函数 形式 封装 ， 第 一部分 称 为 入 口子 各 序 ， 它 是 计算 子 程序 同 MATLAB 环境 之 
闸 的 接口 ， 用 来 完成 两 者 之 癌 的 通信 任务 。 它 定义 被 MATLAB 调 几 的 外 部 子 称 序 的 入 喇 地 
比 、MATLAB 系统 向 节 程 序 传递 的 子 程序 参数 、 子 程序 向 MATLAB 系统 返回 的 结果 参数 ， 
以 长 调用 计算 功能 子 程序 等 。 
入 电子 程序 的 名 字 为 mexFunction， 它 的 原型 在 mexh 中 定 尽 为 ; 


Yoid meEXEUNneticn 
























































int nlhs， 羡 nymber of eXPected outputs 汉 / 

IIXATTay #plhs[]， 六 afray of pointefs to Output argumEentS “7 
int nrhs. 此 number of inENts #/ 

const mXATTay *prhsf] 料 BrTray OPoimnters to iput argurmments 亲 / 


机 

畏 数 mnexFunction 共有 4 个 参数 ,分 别 为 prhsnrhs, plhs 和 mihs, 其 中 prhs 为 一 个 mxArray 
结构 体 类 型 的 指针 数组 ， 该 数组 的 数组 元 素 按 顺 序 指向 所 有 的 输入 参数 : mrhs 为 整数 类 型 ， 
它 标 明了 输入 参数 的 个 数 : plhs 同样 为 一 个 mxArray 结构 体 类 型 的 指针 数组 ， 访 数组 的 数组 
元 素 按 顺 序 指 向 所 有 的 输出 参数 ，nths 则 标明 了 输出 参数 的 个 数 ， 为 整数 染 型 。 这 些 参 数 是 
几 来 传递 MATLAB 局 动 MEX 件 的 参数 。 

在 入 口 了 程序 中 ， 用 户主 要 可 以 完成 两 个 方面 的 任务 : 方面， 从 输入 的 mxArray 结构 
体 中 获得 计算 所 需 的 数据 ， 然 后 在 用 户 的 计算 子 程序 中 加 以 使 用 ， 另 一 方 摧 ， 几 户 问 样 可 以 
将 计算 完毕 的 结果 返 加 给 一 个 用 于 箱 出 的 mxArray 结构 体 ， 这 样 MATLAB 系统 就 能 够 识别 
从 几 户 计算 子 程序 返回 的 结果 。 

MEX 海 文件 的 两 个 组 成 囊 分 既 可 以 存放 在 一 个 文件 中 , 也 可 以 分 为 两 个 义 件 来 企 放 ,这 
无 美 紧要， 重要 的 是 文件 必须 对 头 文件 mex.h 进行 包含 ， 因 为 该 头 文 件 中 不 但 包含 了 最 基本 
<。 48。 















































的 头 区 性 matrix. 定 尽 了 和 殷 阵 )， 而 甩 包 售 了 所 有 以 mex 为 前 缀 的 库 亢 数 的 声明 。 不 管 怎样 ， 
六 口子 程序 必须 是 mexFunction， 其 构成 形式 为 : 


void mexFunctionfint nlhs, mxArray *plhs 门 ,int nrhs, const mxArray *#prhs[]) 








于 
jH 一 些 必 要 的 它 族 青 代码 ， 用 米 完 成 MATLAHE 与 计算 了 程序 的 通信 任务 
] 


4.3.2 MEX 函数 的 执行 流程 


兰 对 怠 语 言 MEX 文件 进行 编译 时 ,首先 MATLAB 从 命令 行 获取 输入 托 阵 ， 并 赋 给 
入 口 了 程序 的 输入 参数 指针 组 ， 入 口子 程序 对 输入 参数 进行 简单 的 检查 后 ， 就 创建 输出 
矩阵 ， 并 将 输出 矩阵 赋 给 入 口子 程序 的 输出 参数 指针 组 ， 然 后 使 用 入 口子 程序 的 输入 参 
数 和 输出 参数 作为 计算 子 程序 的 参数 调用 计算 子 程序 。 在 入 口子 程序 中 完成 以 下 任务 : 

使 用 mxGet 通 数 从 pths[0], prhs[ 引 , … 中 提取 煞 据 ， 使 用 mxCreat( ) 函 数 为 输出 参数 创建 
寄 阵 ， 并 将 指针 plhsf0], plhsf11, …. 指 向 新 创建 的 矩阵 ， 以 输入 /输出 数据 的 指针 作为 参数 调用 
计算 子 程序 ， 图 4-1 显示 了 如 何 向 MEX 文件 输入 数据 ， 通 过 接口 函数 调用 计算 程序 光 成 
运算 过 程 ， 最 后 向 MATLAB 返回 计算 结果 。 


































COnSL TSAETaY 量 四 
B=prs[1] 


MATLAS 调 用 MEX 
交 件 函 糙 


1C.DI-EantA.D 








Cottst mAITayy 内 
RB=prhs|ul 






















MATLA 玉 将 上 A.B 送 到 
MEX 文 什 





funee 









voidtnc xF uncHomint nlha.mx Array 
洗 Whe 口 ,imt nrhs SemistTnS AT3YYPThS) 


0 仔 用 mxCreate 末 获 创建 输出 煞 
奶 ， 对 虎 指 针 为 指向 新 划 建 的 
MATLAB 堵 组 hlhs[gj.[， 

1 使 用 mxOax 得 到 因 教 据 的 指 
针 prhs[l:prhs[11 

1 调用 计算 程序 ， 输 入 和 输 贡 数 据 

指针 作 尼 其 基 数 









MATLAB MEX 训 件 
返 同 性、 







TXTTSEY 二 人 


人 ,Da B) 包 =blhs[ 八 ] 


1TYX 贞 TtwT 
B=plhsl] 





plhs[o] 指 向 妇 
pihs[1] 指 向 瑟 








图 4-1 MEX 文件 的 编 详 访 程 赔 
按 MATLAB 的 语法 规则 ， 函 数 〈 包 括 MEX 文件 ) 调用 的 一 般 形 式 是 ; 





[a.b.c, ...]=funtd,e, 站 
这 里 ，fun 是 MEX 文件 名 或 M 文件 名 .“.…” 表 示 参 数 的 个 数 可 以 是 任意 的 ， 变 量 a, b， 
c 为 输出 变量 ， 而 de 了 为 输入 变量 。 
例如 ,如果 要 调用 -一 个 名 为 fnmex 的 MEX 文件 , 则 在 MAILAB 环境 中 其 命令 形式 为 : 





[ua,v|=funimex(x, y, zZ) 


二 号 = 








随后 ，MATILAB 从 fonmex 的 mexFunction 处 开始 执 往 ， 且 参数 传递 如 下 : 
mnhs=2; 
fThs= 了 3 
alhs=( 指 针 一 'NULLD ) 
({ 指 年 一 'NULL 
Prhs=( 指 针 一 3 
【指针 一 多 
【指针 一 全 








在 执行 子 程序 调用 之 的 ， 由 十 输出 变量 0 和 ，*v 对 象 还 没有 创建 ， 所 以 参数 plhs 的 各 指针 
指 册 的 地 丝 暂 时 未 让 义 。 在 入 吕 程 序 中 ， 先 根据 需 此 创 建 mxArray (或 Matrix) 类 型 的 箱 出 
变量 ， 其 地 续 分 别 保 贸 在 pins[0] 和 plhs[1] 和 中 ， 和 再 通过 两 个 指针 ， 就 可 以 在 计算 子 程序 中 使 用 
这 些 变 量 进 行 计 算 。 


4.3.3 MEX 文件 的 结构 和 使 用 


一 


在 C 语言 的 MEX 文件 中 ， 参 数 alhs 和 nrhs 包含 答 皇 和 输入 变量 的 数 日 ,借助 这 商 个 参 
发，MEX 文件 被 调用， 参数 plhs 和 prhs 是 包含 指向 MEX 文件 输出 和 输入 变量 的 指针 的 癌 
量 ，prhs 是 芭 虎 为 nrhs 的 输入 变 旺 的 指针 数组 ，plhs 是 长 度 为 nlhs 的 输出 变量 的 指针 数 级 。 
例 册 ， 从 MATLAB 命令 窗口 来 调 川 一 个 MEX 文件 : 

X 一 fnmtY，Z): 









































数 





则 MATILAB 编译 此 使 用 下 面 的 变 丝 来 调用 mexFunction， 
nlhs=1 
mrhs 一 之 
plhs=(Pointe 中 一 呈 unassignedy7 
brhs=(pointe 站 一 y 
【Pointe 吕 一 工 


plhs 指向 上 只 有 一 个 元 素 的 C 语 六 数组 ， 并 且 这 个 二 素 为 空 指针 。，prhs 指 同 含有 陋 个 元 
束 的 避 谨 读数 姐 ， 其 中 第 一 个 元 素 指 向 mxArray 型 变量 v， 第 二 个 元 素 插 向 mxArray 型 变 
是 z。 

这 里 ，plhs 指向 空 的 数组 是 由 于 输出 和 在 了 程序 执行 旱 疝 未 产生 ， 入 口 程序 的 作用 就 是 
创建 输出 数组 并 分 本 指针 plhsl0] 指 向 谱 娄 组。 如 果 Plhs[0 没 有 赋值 ， MATLAB 将 给 出 输出 
变量 没有 赋值 的 警告 信和 已 

4.3.4 MEX 文件 与 独立 应 用 程序 的 区 别 

MEX 文件 和 独立 应 用 程序 在 以 上 方面 存在 差异 : 

MEX 文件 与 MATLAB 解释 开 工 作 于 同样 的 过 程 空间 。 当 启动 一 个 MEX 文件 时 ， 
MATLABE 解释 器 动态 链接 MEX 文件 。 也 就 是 说 ，MEX 文 任 不 能 脱离 MATLAB 环境 运行 。 

独立 应 用 程序 可 以 脱离 MATELAE 环境 运行 。 可 以 在 独立 席 用 程序 中 调用 C-MEX 六 件 . 
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4.4 C 语 言 MEX 函数 





C 语 彰 MEX 甬 数 是 MATLAB 应 用 程序 接口 函数 库 担 供 的 一 种 库 函 数 , 均 以 mex 方 前 缘 ， 
主要 功能 是 与 MATLAB 环境 进行 变 互 , 例如 从 MATLAB 环境 获取 必要 的 阵列 数据 或 者 返 上 9| 
一 定 的 信息 。 这 种 类 型 的 库 函 数 具 能 用 于 MEX 文件 中 ， 它们 的 原型 事 定 义 在 
<MATLABroot>Aexterninclude 日 录 小 的 mexh 中 ， 下 面 对 mexh 中 定义 的 C-MEX 责 数 的 让 
型 和 切 能 进行 详细 说 明 ， 对 任 个 函 数 的 参数 说 明 则 从 略 。 





1，tImexErrMsgTxt ) 


原型 ，void mexErrMssgTxt(const char +ertror msgy; 


功能 描述 ， 发 出 报错 信息 ， 然 后 返回 MATLAB 提示 符 。 
2，ImexErrMsgIdAndITxt( ) 


原型 ，void mexErrMsglIdAndTxt(const char * identifier const char * BIT_ImSS，， ]; 


功能 描述 ;， 按 指定 前 格式 发 出 报错 信息 ， 并 返回 MATLAB 提 不 符 。 
3 meXWarnMisgTXt ) 


床 型 ， void mexWrarnMisBgTxttconst char warn_ ins): 

功能 描述 :触发 -个 没有 定义 标识 的 告警 信息 . 

4，mexWarnMspgIdAndITXt ) 

原型 ;void mexWarnMsgIdAndTxt (const char * identifier const Char ”到 arn_TnSE… 

巧 能 描述 ， 按 指定 的 格式 发 出 告警 信息 ， 并 返回 MATLAB 提示 符 ， 

5，ImexPrintft ) 

原型 ， int mexPrintffeconst char #fmt，. 

动 能 描述, 相当 于 MATLAB 中 的 dsp 命令 。 在 mexh 中 有 以 干 滞 人 名， 将 printft 语 铝 转 为 
按 mexPrintf 执行 。 

#define Printr mexPrintf 














看 ， ImexMakeArrayPersistent( 》 


了 原型 ，void mexMakeArraybPersistent(tmxATray #pa 
切 能 播 述 ， 从 MATLAB 的 内 存 分 配 表 中 删除 算 阵 的 所 有 组 件 ， 包 会 筷 阵 头 本 身 。 当 删 
除 . -个 矩阵 时 必须 调用 mxDestroyArrayf ) 函 数 。 








7， ImexMakeMermoryPersistentl ) 


原型 ，void mexMakeMemoryPersistent(void sptr); 
田 能 措 述 ， 从 MATLAB 的 内 存 分 配 胡 中 去 除 前 面 通过 mxAltoc( ) 分 配 的 内 存 。 为 了 释放 
内 存 ， 需 要 调用 mxFree( ) 函 数 。 


= 与 1 。 








8 ImexGetEanetionHandier } 


原型 : void mexGetEanctionEandiefvoid)， 
功能 描述 : 查找 一 个 靖 数 ， 并 返回 可 与 mexCalliMATLABFunction 一 起 使 用 的 贡 数 名 栖 。 


imexCallMATL 和 ABRPFunctiont 》 


床 型 ，void mexCailMATLABSFunctionfvoidy:， 
功能 描述 :执行 “个 国产 ， 函 数 创 柄 是 通过 mexGetFunctionhandie 得 到 的 。 


10，mexRegistertunctionl ) 


原型 ， void mexRegisterFunctiontyoidh; 


功能 描述 ， 记 录 -个 贡 数 指针 ， 作 为 MATLAB 可 调 咱 函 煞 。 
1 InexSetf ) 


诛 炭 ，int mexSettdoubie handle. const char sproperty, mxArmray *walue): 


已 能 描述 : 相当 于 MATLAB 的 set 力 数 ， 用 二 设 团 句 柄 的 属性 值 。 














12， ImexGet( ) 


距 型 const mxArray xtnexGet(double handie, const char #property); 


功能 描述 ， 和 相当 本 MATLAB 的 get 阔 数 ， 用 于 返回 人 多 柄 的 属性 值 ， 

















13，mexCaliMATELABI) 


原型 ，int mexCalHMATLABIint nlhsimxArray *plhs[],int nrhs.mxArray *prhs[],const chat 
fen_namme》: 


功能 描述 : 调用 MATLAB 函 数 ， 人 参数 的 输入 /输出 参数 在 其 中 ， 


14，tmexSetTrapFlag( ) 





诛 坚 ，void mmexSetTrapFlagfint flag); 
切 能 描述 ， 设 置 或 清除 MATLAR 的 陷 了 标 志 。 


15， tnexSubsASsstgat 】 


蝗 型 ，void mexSupsAssignf(ImnxArmray *pjhsiconst SnXATray “pyhsconst IDXATray *StDSs[] nt 
nsubs}; 

功能 撒 述 , 执行 数 纽 的 下 标 操作 . 即 对 数组 中 某 些 元 素 进 行 操作 . 其 中 subs 为 下 标 狂 纽 ， 
nsubs 为 下 标的 个 数 。 


16，mexSubsReferencel ) 


原型 ，mxArray #imexSubsReference[const mxArray *prhsiconst IDXArray *Subs[], int nsubsji 


功能 描述 ， 检 索 一 个 矩阵 的 子 集 ， 即 子 秆 阵 。 


昌 多 衬 





17。，ImexPrimntAssertiont ) 


原型 : void mexPrintAssertionfcenst char *test const char *fname, int linenum， const charinf); 


功能 描述 : 输出 执行 Assert 时 的 出 错 信 息 ， 返 回 控制 至 MATLAR 命令 行 万 式 。 
18，InexGetVatriablePtr( ) 


原型 ，const mxATrray *mexGetVariablePtr(const char *wrorkspace:const char fname)]; 


功能 描述， 返回 指向 指定 工作 区 间 的 指定 变量 的 赎 阵 的 指针 。 
19，ImexPutYariablel ) 


原型 :mexPutVariablekconst char *workspace.const char *naine,.const InXAITaY #parray); 


切 能 描述 ， 在 指定 的 工作 区 创建 变量 ， 并 将 知 阵 的 值 赋 给 它 。 


20，mexLockf ) 





原型 : void mexLeockfvoidy; 
功能 描述 ， 锁 定 一 个 MEX 冰 数 ， 以 便 它 不 能 从 内 存 中 清除 。 
21，mexUnlockt ) 


原型 : vo 记 mmexLJnjockrfvoid; 
功能 描述 :解除 对 一 个 MEX 函数 的 锁定 ， 以 便 它 可 以 从 内 存 中 清除 。 


22，ImexISsLocKkedr ) 


原型 ，hool mexIsLockedtvyeidy; 
功能 描述 ， 返 回 MEX 表 数 的 锁定 状态 ， 即 是 和 否 锁定 。 


23，mexFunctionMNarmet ) 





原型 : const char *mexFunctionMNaitme(veoiqd); 


功能 描述 : 返回 当前 正在 执行 的 MEX 医 数 的 名 称 。 
24，ImexEvalString ) 


原型 ，int mexEvalString(cortst char *stD; 
功能 描述 ， 分 析 字 符 串 中 指定 的 MATLAB 命令 的 语法 并 执行 。 九 果 执 行 成 功 则 返回 零 ， 
如 昌 失 败 则 返回 非 零 值 。 























25， IneXAtEXit ) 





原型 ，int mexAtExit( voidf(sexit_fenyfvoid) ); 

功能 描述 : 记录 MEX 文件 的 出 口 丙 数 。 

另外 ， 还 有 一 些 函 数 如 mexGetGlobal( ) 、mxSetString( ) 、 ImxSetDispMedet ) 、 
mexGetMatrixPtr( 1)、mexGetMatrix( ) 、mexPutMatrix( )、mexPutEFEuIK )、TaexOetFult 小 
mexGetEpsf )》、tmnexGetInf 1、mexGetNaN( 小 ImexIsFinitef 7)、IexIsInff )、mexIsNaN( )、 


与 村 = 














InexPutArrayf )、ImexgGetArray[ )、mexGetArrayPtrf )、mex 上 AddFlopst ) 等 已 经 过 时 ，- - 般 不 再 
使 用 . 它们 被 - 些 新 的 函数 所 取 代 , 例如 函数 mexPutArray( ) 被 函数 mexPutVariablef ) 所 取代 ， 
函数 mexGetAray( ) 被 本 数 mexGetvariablef ;所 取代 ， 和 而 函数 mexGetArrayPtrf 被 函数 
mexGetVariablePtr ) 所 取代 ， 





4.5 _C-MEX 混合 编程 





MATLAB S API 提供 了 一 系列 程序 来 处 理 MATLAB 所 支持 的 各 种 数据 类 型 ， 每 -种 数 
据 类 型 都 有 对 应 通 数 来 处 理 对 应 的 数据 .下 而 给 出 一 个 简单 的 C 语言 程序 和 与 之 对 应 的 MEX 
艾 件 代码 ， 该 程序 的 切 能 是 将 标量 xx 加倍。 
CC 语言 程序 如 下 : 
#nclude "Fathh” 
void timmestweotdouble y 门 , double x 跻 ) 
Yy[0Dj=2.0*X[D]; 
TetDTn， 


} 
下 面 是 与 C 语言 程序 功能 胡同 的 MEX 文件 ; 


入 nelude  "TnEXKD” 








void timestwotdotuble y[], dooble xD) 
{ 

Y[01=2.0#x[0l: 
} 


void mexFunctienfint nihs, InXATray #plhslj, int nrhs, const DIXATrray *prhs[]) 
寻 0UHb] 避 呈 基 。 灿 和 3 


int mrTOWS neols， 


# 检 人 正 确 的 参数 数 日 史 
inrhsI=]) 
{ 
mexErrMsgTxt(" 击 要 一 个 输入 和 参数."); 
else 
让 fnlns>1y) 


mexErrMsgTxt0" 输 出 参数 太 密 .); 





/输入 变量 必须 是 莫 复 数 类 型 的 标 是 % 
Inrows=mxtjetwviprhs[]); 
neaolS=mxGetNtprhbs[O]); 


这 :mxIsSDoublefprhs[D]) mxIsComplextprs[0]) 10arowsS==] 信康 neols==]) 
{ 

mexErrMsgTxt" 输 入 变量 必须 是 非 复数 尖 型 的 标量 .7 
】 


六 为 返回 参数 创建 生 阵 史 
plhs[0]=mxCreateDoubleWtatrixtmrows， Decaojs, IDX 了 EAI 


i# 分 配 输入 /输出 参数 的 指针 扣 
X=TIXGEetPYPths[D]); 
Y=InxCGetPr(Pihs[0]); 


六 调用 Hmestwo 二 函 闭 闻 
timestwWwofy，X]; 


] 


C 语言 程序 是 在 编译 时 从 查 函 数 参数 。MATLAB 可 以 在 M 函数 中 传递 任意 数量 和 类 理 

的 参数 ，MEX 文件 也 是 如 此 ， 不 过 在 程序 中 必须 可 靠 地 处 理 输入 /输出 参数 的 数目 。 如 果 将 

上 面 的 MEX 文件 命名 为 timestwo.c， 就 可 以 对 它 进行 编译 和 链接 ， 在 MATLAB 命令 窗口 中 
输入 : 


Inex Treestwe 


这 是 产 牛 MEX 文件 timestwosss 所 必需 的 步 又 ， 该 文件 的 扩展 名 由 所 运行 的 系统 平台 的 
类 型 确定 。 在 Windows 系统 下 , 扩展 名 为 由 。 此 时 就 可 以 像 调 用 M 函数 一 样 调用 timestwoe 了 。 
在 MATLAB 命令 窗口 中 输入 
2 Xi 
2 Y=tirmestwWwoXJi 


就 可 以 得 到 : 


y=4; 
46 Visual C++ 中 MEX 文件 的 建立 和 调试 


MATLAB 65 提供 了 通过 Add-in 生成 和 调试 C-MEX 程序 的 能 力 。 方法 是 先 通过 
MATLAB Project Wizard 建立 一 个 新 工程 ， 如 图 4-2 所 示 。 然 后 , 在 step 1 of 1 的 Visual 
MATLAB Application Type 选项 中 选择 C-MEX DLL， 如 图 4-3 所 示 。 通 过 MAILAB Add-in， 
可 以 将 MATLAB 程序 编译 为 mex 程序 ， 但 是 这 一 丁 具 还 不 完善 。 一 个 最 明显 的 问题 是 ， 不 
能 以 CPP 文件 的 形式 转换 M 程序 并 进行 编译 ， 而 生成 C 程序 就 可 以 正常 转换 和 编译 。 这 个 


"55 


问题 也 是 MathWorks 公司 官方 承认 的 。 实 际 上 ，MATLAB Project Wizard 所 能 完 
都 可 以 在 MATLAB 命令 行 方便 地 实现 。 因 此 ， 通 常情 况 下 不 需要 Visual C++ 的 集成 环境 。 

但 是 在 有 的 场合 ， 如 果 MEX 程序 比较 复杂 ， 就 可 能 
特性 对 代码 进行 管理 。 例如 , 程序 中 有 些 与 操作 系统 密切 联系 的 代码 , 包括 通过 Windows API 
个 标准 的 Windows 对 话 框 ， 或 者 对 系统 硬件 进行 访问 和 控制 等 ,而 最 多 的 情况 就 是 工 


显示 一 


程 的 方式 对 代码 进行 多 文件 的 管理 。 


在 编制 这 些 复杂 的 MEX 程序 时 ， 利 用 Visual C++ 的 Project Wizard 和 Class Wizard 生成 
MEX 程序 的 框架 ， 并 用 MEFC 类 库 进行 界面 设计 编程 ， 


要 进行 一 些 简单 的 设置 。 


s。 SO0。 


可 Win32 Static Library 








Flles Prajes | Wontspaces | omer Docaments 下 







日 大 TL COM AppWizard Project name: 
ti] Cluster Resource Type Wizard [MattabAddinMEX 









到 Custom AppWizard 
2 Locatiom' 


Fwewwawex 







PCreate new workspace 
PUTDC07ETEWORKEP3CP 
厂 Deperdency 时 














到 Win32 Application 
Win32 Console Application 
引 Win32 DynamicLink Library 









图 4-3 ”通过 MATLAB Project Wizard 生成 C-MEX DLL 文件 窗口 


会 考虑 利用 Visual C++ 集成 环境 的 


实现 和 管理 起 来 就 比较 方便 ， 不 过 还 


4.6.1 Visual C++ 中 MEX 程序 的 建立 和 环境 设置 


一 个 MEX 程序 实际 上 就 是 一 个 特别 的 动态 链接 库 (DLL ), 它 的 输出 函数 是 mexFunction( )。 
在 Visual C++ 工程 中 可 以 通过 Project Wizard 建立 一 个 DLL 工程 ， 并 为 其 指定 输出 函数 为 


mexFunction( ) 。 


4.6.1.1 立 一 个 新 的 DLL 工程 


启动 Visual C++， 选 择 “FilelINew” 选 项 ， 在 Project 页 面 中 选择 MFC AppWizard(dl1)， 
输入 路 径 名 和 工程 名 ， 并 单 击 “OK ”按钮 。 


4.6.1.2 ”选择 静态 链接 的 MFC 类 库 


在 MFC AppWizard 的 Step 1 of 1 对 话 框 中 ， 选 择 使 用 静态 链接 MEFC 的 DLL， 如 图 4-4 
所 示 。 注 意 不 要 选择 动态 链接 的 MFC 库 。 因 为 MATLAB 使 用 了 特殊 版 本 的 DLL 文件 
mfc42.dll]， 并 且 放 置 在 其 程序 目录 中 ，MATLAB 必须 使 用 自 带 的 mfc42.dll， 而 这 个 文件 与 
Windows 系统 目录 中 的 相应 文件 是 不 兼容 的 , 若 替 换 则 将 会 导致 Windows 系统 或 MAITLAB 
工作 不 正常 ， 严 重 时 甚至 造成 MATLAB 被 非法 操作 而 异常 退出 。 

当 MATLAB 启动 需要 mfc42.dll 时 ,会 首先 在 MATLAB 所 在 的 程序 目录 中 搜索 ,并 找 
到 这 个 特殊 版 本 的 DLL 文件 ， 而 不 会 用 Windows 系统 目录 中 的 。 其 他 应 用 程序 则 根据 系统 
路 径 中 的 设置 ， 找 到 在 Windows 系统 目录 中 的 mfc42.dll， 因 此 不 会 互相 干扰 。 如 果 在 建立 
MEX 工程 时 选择 了 动态 链接 MEFC 库 ， 它 将 调用 位 于 MATLAB 程序 目录 中 的 mfc42.dll， 由 
于 版 本 不 兼容 的 问题 ， 在 某 些 情况 下 会 出 错 ， 而 选择 静态 链接 库 就 可 以 避免 出 现 这 个 问题 。 


ppWizard - Step 1 of ! 








图 4-4 选用 静态 链接 的 MEFC 类 库 


4.6.1.3 ” 设 定 输出 函数 


通过 以 上 步骤 ， 将 会 在 工程 中 看 到 一 个 DEF 文件 。 需 要 在 其 中 指定 DLL 文件 的 输出 函 
数 ， 也 就 是 mexFunction( )。 为 此 ， 在 Visual C++ 的 Workspace 栏 中 ， 单 击 “FileView” 属 性 


es。 SST。 


页 ， 展 开 “Source Files” 栏 ， 打 开 该 DEF 文件 ， 并 对 其 内 容 进 行 编 辑 ， 即 在 “Exports” 后 面 
加 入 mexFunction( ) 一 行 。 


4.6.1.4_ Visual C++ 中 必要 的 环境 设置 


由 于 在 编译 和 链接 MEX 程序 的 时 候 , 需要 用 到 MATLAB 提供 的 若干 个 头 文件 和 库 文 件 ， 
因此 应 该 对 这 些 文件 的 搜索 路 径 进行 指定 。 在 MATLAB 6.0 以 前 的 版 本 中 ， 没 有 提供 必要 的 
库 文 件 (LIB )， 只 提供 了 相应 的 DEF 文件 ， 必 须 由 用 户 用 “lib” 命 令 手 工 将 DEF 文件 转换 
为 LIB 文件 。 在 MATLAB 6.0 以 后 版 本 中 ， 则 直接 提供 LIB 文件 ， 不 需要 用 户 生 成 了 。 


1. 添加 库 函 数 和 头 文件 必要 的 路 径 


MEX 文件 所 需 用 到 的 头 文件 (如 mex.h 和 matrix.h 等 ) 位 于 MATLAB 的 <MATLABrootx\ 
externvinclude 目录 下 。 而 MATLAB 对 不 同 版 本 的 编译 器 提供 了 不 同 的 库 文 件 ， 分 别 存放 在 
不 同 的 目录 下 。 对 于 Visual C++ 6.0 而 言 ， 库 文件 在 MATLAB 的 <MATLAB>\externNlib 
\win32\Microsoftmsvc60 目录 下 。 

因此 ， 需 要 将 这 两 个 目录 添加 到 Visual C++ 的 搜索 路 径 中 。 方 法 是 通过 选择 菜单 

“ToolslOptions”， 打 开 选 项 对 话 框 ， 在 Directories 属性 页 中 ， 单 击 Show directories for 选项 ， 
在 下 拉 列 表 中 选择 Include files， 在 列表 中 添加 MATLAB 头 文件 的 目录 (如 图 4-5 所 示 ， 蓝 
色 部 分 为 新 添加 ， 既 可 以 直接 输入 也 可 通过 browse 添加 )， 然 后 在 下 拉 列 表 中 选择 Library 
files， 在 列表 中 添加 MATLAB 库 文 件 的 目录 (如 图 4-6 所 示 )。 


2.， 添加 必要 的 库 文件 


指定 库 文 件 的 搜索 路 径 后 ， 还 需要 指定 具体 需要 链接 哪些 库 文 件 。 常 用 到 的 库 文 件 有 以 下 
几 个 : libmx.lib、libmex.lib、libmatlbmx.lib 和 libmatlib。 添 加 的 方法 如 图 4-7 所 示 ， 通 过 选择 
Project 下 的 Settings 子 菜单 ， 打 开工 程 设置 对 话 框 ， 切 换 到 Link 属性 页 ， 在 Objectlibrary 
modules 编辑 框 中 输入 这 几 个 库 的 名 称 。 值 得 注意 的 是 ， 这 几 个 库 文 件 之 间 通 过 空格 隔 开 ， 
否则 会 报错 。 当 然 ， 如 果 MEX 还 用 到 其 他 库 文 件 ， 不 管 是 MAILAB 的 ， 还 是 Windows 系 
统 的 ， 或 者 是 自己 编制 的 ， 都 应 该 添加 到 这 个 编辑 框 里 。 


CyPregeam 一 rrrerrrrm Visual StudioWVC96VNCLUDE 
ET FilesVMicrosoft Visual ee 
C ATL 





图 4-5 MEX 用 到 的 头 文件 路 径 设 置 


。S8 。 


: # SN -了 jx 
Editor | Tabs | Debug | compatibility | Bund Directories | worksi 

Platform: Show directories for 
[winaz 司 Juorary files 本 
|Directoeries: 说 兴 拿 可 


CAPronram FilesVMicrosoft Visual StudioVVC98VLIB 
CAProngram FilesVMicrosoft Visual StudioyVC98\MFCYLIB 
CAMATLAB6P5VBI 




















Category: |Gencral 司 Beset | 
Output file name: - 


Joeboerr zstMex.dll 


Seuings For |Wwin32 Debug 








CA 
Nibmx.lib libmex.lib libmatlbmx-lib libmat.lib /nologo 专 
了 isubsystem:windows /dll jiincremental:yes 
dbyDebugiTestMex.pdb' /debug /machine:1386 









图 4-7 添加 MEX 文件 可 能 用 到 的 库 文 件 


4.6.1.5 ”添加 应 用 程序 代码 


完成 以 上 设置 后 ，MEX 文件 就 可 以 正常 编译 和 链接 了 。 但 还 没有 添加 含有 MEX 功能 的 
代码 ， 因 此 用 户 需要 在 必要 的 地 方 添加 自己 的 代码 ， 用 CPP 保存 ， 并 将 文件 加 入 工程 中 。 


4.6.2 MEX 程序 的 调试 


在 不 借助 任何 调试 工具 的 条 件 下 ， 调 试 C 程序 最 简单 的 办 法 是 使 用 printf 命令 。 在 
MATLAB C-MEX 中 可 以 使 用 mexPrintf， 当 然 也 可 以 使 用 printf。 但 mexPrintf 函数 并 不 中 断 
MEX 程序 的 运行 ， 如 果 程 序 出 错 ， 可 能 会 给 整个 程序 的 运行 带 来 致命 的 打击 ,尤其 是 在 有 内 
存 管理 等 操作 的 程序 中 ， 人 往往 会 因 MEX 程序 的 非法 操作 ， 造 成 整个 MATLAB 系统 的 裔 泪 。 
为 了 提高 调试 效率 ， 可 以 加 入 若干 测试 代码 ， 当 发 现 错误 时 及 时 提出 。 

MEX 函数 提供 了 mexErrMsgTxt 函数 ， 它 与 mexPrintf 函数 不 同 ， 它 仅 能 打印 字符 串 ， 
而 不 具备 将 后 继 参 数 转换 为 字符 串 的 能 力 。 更 重要 的 是 ， 它 可 以 立即 中 断 当前 MEX 程序 的 
运行 ， 并 返回 MATLAB 命令 行 窗 口 ， 同 时 释放 MEX 程序 中 先前 通过 mxCalloc 和 mxCreate 
函数 申请 的 内 存 ， 保 证 了 MEX 程序 的 安全 退出 。 另 一 个 常用 的 字符 串 打 印 函 数 是 
mexWarnMsgTxt， 它 给 出 了 警告 信息 ， 但 不 会 退出 MEX 程序 。 


es。 S9 。 


在 Visual C++ 的 集成 开发 环境 中 ， 可 以 对 MEX 程序 进行 更 全 面 的 跟踪 调试 。 由 于 MEX 
程序 是 一 个 DLL， 因 此 需要 特别 的 调试 方法 。 

为 了 便于 调试 ， 在 Visual C++ 中 要 以 Debug 方式 建立 工程 ， 也 可 以 通过 菜单 “Projectl 
Configurations ”切换 到 Debug 模式 ， 如 图 4-8 所 示 。 





4-8 切换 到 Debug 方式 对 话 框 


通过 菜单 “ProjectlSetting ”， 打 开工 程 选项 对 话 框 ， 在 Debug 属性 页 ， 找 到 编辑 杠 
“Executable for debug session”， 单 击 其 右 侧 的 加 按钮 ， 出 现 浮动 菜单 ， 选 择 Browse 选项 ， 
并 找到 位 于 CNMATLAB6p5\bin\win32 目录 下 的 MATLAB.exe， 选 中 后 单 击 “ 打 开 ” 按 钮 ， 
则 出 现 如 图 4-9 所 示 的 对 话 框 。 





MATLAB6p5VbinWwin32Wnatlab.exe 下 | 


4-9 为 调试 MEX 程序 设置 MATLAB.exe 的 路 径 


在 MEX 源 程 序 中 需要 调试 的 合适 位 置 设置 断 点 。 

按 F5 键 运行 程序 就 可 以 开始 调试 。 此 时 会 出 现 如 图 4-10 所 示 的 对 话 框 。 该 对 话 框 提示 
MATLAB.exe 没有 包含 调试 信息 , 不 能 进行 调试 。 这 是 正常 的 ,因为 MATLAB.exe 是 以 release 
方式 发 行 的 ， 不 可 能 包含 调试 信息 ， 事 实 上 也 无 须 对 其 进行 调试 ， 也 无 法 通过 Visual C++ 
调试 它 。 因 此 ， 选 中 “Do not prompt in the future” 前 的 复 选 按钮 ， 单 击 “OK” 按 钮 将 其 忽 
略 即 可 。 

MATLAB 启动 后 ， 默 认 的 工作 目录 为 当前 工程 的 位 置 。 由 于 MEX 程序 在 当前 工程 的 
Debug 目录 下 ， 因 此 为 了 运行 MEX 程序 ， 还 需要 进入 Debug 目录 : 


se。 0O0。 


>> cd debug 

在 程序 断 点 处 ， 可 以 运行 Visual C++ 提供 的 所 有 调试 功能 ， 如 通过 变量 观察 窗 (Watch ) 
看 到 最 近 处 理 的 变量 的 数值 。 

调试 完毕 , 可 以 在 MATLAB 窗口 中 输入 exit 命令 , 即 可 退出 本 次 调试 ,也 可 以 通过 Visual 
C++ 荣 单 中 的 “BuildlStop Debug ”强行 中 断 调 试 工作 ， 它 会 自动 关闭 MATLAB，Visual C++ 
返回 编辑 状态 。 





图 4-10 ”警告 窗口 
4.6.3 MEX 独立 应 用 程序 的 发 布 


为 了 发 布 生成 的 MEX 独立 应 用 程序 ， 需 要 生成 一 个 文件 包 ， 包 含 这 样 一 些 类 型 文件 : 
应 用 程序 可 执行 文件 、 应 用 程序 使 用 的 所 有 定制 的 MEX 文件 、 所 有 的 MATLAB 运行 库 。 


4.7 MEX 编程 实例 


本 节 通 过 三 个 实例 说 明 如 何 借助 Visual C++ 来 编辑 和 调试 MEX 文件 。 第 一 个 例子 是 一 
个 简单 的 “Hello World ”程序 。 第 二 个 例子 应 用 MATLAB 自 带 的 yprime.c， 第 三 个 例子 是 自 
行 编程 实现 稍 复杂 一 些 的 功能 。 

【 例 4-1】 一 个 简单 的 “Hello World” 程 序 。 

启动 Visual C++， 选 择 菜单 “FileINew”， 在 Project 页 面 中 选择 MFC AppWizard(DLL)， 
建立 一 个 名 称 为 “MexHello” 的 工程 .在 MFC AppWizard 的 Step 1 of 1 中 选择 “ Regular DLL 
with MEFC statically linked”， 即 选择 静态 链接 的 MEFC 类 库 。 接 下 来 ， 还 需要 完成 以 下 几 个 
步骤 : 

进行 必要 的 环境 设置 ， 包 括 添加 头 文件 和 库 文件 的 路 径 ， 以 及 添加 必要 的 库 文件 。 

修改 MexHello.def。 可 以 在 Source Files 中 看 到 AppWizard 自动 生成 了 以 下 几 个 文件 : 
MexHello.cpp、MexHello.def、MexHellorc 和 StdAfx.h 等 。 

需要 在 MexHello.def 中 指定 该 DLL 文件 的 输出 函数 ， 也 就 是 mexFunction。 为 此 ， 在 
Visual C++ 的 Workspace 栏 中 ， 单 击 “FileView” 属 性 页 ， 展 开 “SourceFiles” 栏 ， 打 开 
MexHello.def 文件 并 编辑 其 内 容 ， 即 在 Exports 后 面 加 入 mexFunction 一 行 。 编 辑 后 的 
MexHello.def 文件 内 容 如 下 : 

; MexHello.def : Declares the module parameters for the DLL. 


LIBRARY "MexHello"” 
DESCRIPTION “MexHello Windows Dynamic Link Library” 


*。O] 。 





了 EXPORTS 


;Explicit exports can go here 


; 白 行 添加 的 代码 


IEXFPUTCHOT 


渗 加 必 皮 的 代码 。 通 过 菜单 “FilelNew” 间 工程 中 添加 一 个 C++ Source Bile， 并 将 其 命 
名 为 main.cpp。 在 main.cpp 中 添加 师 下 代码 : 
丰 nelude "stdafx.h” 


碍 nelude rmexh 





void mmexFuncbontint hlhs, mxArray *pPlhs[， 


int nrhs, censt Imx 上 FTay *brhs[]) 
[ 
mexPrintff Hejlo Werldmn 
pmntfr Hello Worldwn 
1MiessageBoxf(NULL，Hello World MEX le MB_ KR]; 


} 


这 时 训 可 以 编译 和 运行 MexHelle 了 ， 编 译 和 链接 之 后 ， 将 在 debug 日 录 下 得 芭 
MexHello,d]。 有 启动 MATLAB， 进 入 MexHelle.dll 所 在 的 日 涉 ， 然 后 输入 MexHelloe， 就 坷 以 
看 到 “IIello World” 出 现在 命令 窗口 . 

当然 ， 也 可 以 按 图 49 为 MEX 文件 设置 MATLAB,exe 的 路 径 。 此 时 编译 后 运行 ， 将 日 
启动 MATLAB， 用 默认 的 日 录 为 MexHello 工程 的 日 录 。 这 时 ， 只 项 在 MATLAB 环 工 中 键 
入 以 让 命令 ， 就 会 看 划 “Hello World” 出 现在 命令 窗口 。 

> ed debug 








> mexheilo 
Hello WoTld 


述 可 以 在 Wisual C++ 工程 中 使 用 MEC 提供 的 国 数 进行 调试 ， 例 如 将 main.cpP 中 
mexFunction( ) 里 面 的 mexPrint( ) 散 数 改 为 MessageBoxf )， 即 将 mexFunctiont ?的 向 两 行 代 
码 注释 挤 ， 而 去 掉 第 三 行 的 注释 ， 然 后 编译 运行 。 

注意 : 编译 前 要 先 关 闭 MAILAB， 和 否则 会 出 现 不 能 修改 MexHelledll 的 错误 ， 因 为 
MexHello.di 刚刚 在 MATLAB 环境 中 运行 运行 时 ， 将 会 出 现 如 图 4-11 所 示 的 窗口 ， 








【 例 4-2] 本 例 道 过 白 行 编 号 CC-MEX 代码 ， 生 成 一 个 可 以 在 MATLAB 卜 运行 的 C-MEX 
文件 。 它 计算 素数 〈prime number， 即 除了 1 和 它 本 身 外 ， 不 能 闽 除 其 他 的 数 ) 的 个 数 。 需 
可 经 过 以 下 几 个 步骤 ， 

(1) 局 动 Wisual C++， 选 择 File 菜单 的 New 子 菜单 ， 在 Project 页 而 中 选择 建立 -个 
“Win32 Dynamic-Link Library” 的 工程 ， 工 程 名 为 “MexFunction ”。 在 向 导 Wizard 第 一 步 ， 
选择 “A DLL that exports some symbols”。 点 击 “ 结 束 ” 将 建立 MexFunction 工程。 


62 。 










do 


口 太 了 了] _ 
_ 旨 x| xj 


[于 | | [| | 夷 Stack 12，= Usxing Toolbox Path Cache、 Type“help toolbox_path_cache' 
FF Size To get started -acEEI3R 
Helo World 


4 >> cd debug 
阿 计 >> mexhello _ 确 正 | 
| | 站 | 


| 4 













二 





《the Help menu 







图 4-11 调用 MessageBox() 的 MEX 程序 


(2) 在 菜单 Project 中 选择 Setting 子 菜单 ， 选 择 C/C++ 选 项 卡 ， 在 Category 中 选择 
General， 在 Preprocessor definitions 中 添加 MAILAB_MEX_FILE。 

(3) 点 击 “File INew” 菜 单 ， 选 择 生 成 一 个 Text File 文件 ， 如 图 4-12 所 示 ， 并 命名 为 
MexFunction.def。 它 定义 输出 的 符号 。 


; testmexfunction.def : Declares the module parameters for the DLL. 


LIBRARY "ComputePrimes” 
DESCRIPTION “ComputePrimes Windows Dynamic Link Library” 


EXPORTS 
;Explicit exports can go here 


mexFunction 


(4) 在 Project 中 选择 Setting 子 菜单 ， 选 择 Link 选项 卡 ， 在 Category 中 选择 General， 
如 图 4-13 所 示 ， 在 Project Options 中 添加 如 下 的 编译 器 选项 : 
/def: "mexFunction.def” 


[CR 了 3a 













Active Server Pagec 左 Add to project 

站 宣 ， [wexFunaion 司 
牟 CCr+ Header File 这 
四 C++ Source File 
及 Cursor File File 

HTML Page re 
icon File MexFunction.def 







Resource Script Location'; 


Resource Template [osvcTESTMexFunction 过 | 


SQL Script File 
Text File 







图 4-12 选择 生成 一 个 Text File 文件 


*。03 。 








站 [TY TXT 
ObjectWlibrary modules: 


[emel32.m user32.lib gdi32.lib winspool.lib comdlg32.lib 


ein ed 


ii 1 三 rn 
out'"DebugiMexFunction.dIF" 人 
implib”"DebugiMexFunction.lib" /pdbtype:sept 
昌 
人 > 汉 训 确 且 区 匠 了 3 -一 
RE | 
汪 尖 卫 有 FE 让 一 一 


图 4-13 工程 设置 对 话 框 


(5$) 在 生成 的 mexFunction.cpp 文件 中 添加 以 下 头 文件 。 
注意 : 后 面 的 4 条 语 负 实际 上 是 向 工程 中 添加 4 个 库 文件 ， 与 第 4.1.6.1 节 中 添加 库 文 件 
的 效果 一 样 。 当 然 也 可 以 按 第 4.1.6.1 节 进 行 设置 ， 则 不 需要 添加 后 面 4 条 语句 。 


##include "MATLAB.h" 

#pragma comment(lib，libmx.lib”) 
#pragma comment(lib，libmat.lib”) 
#pragma comment(lib，"libmex.lib ) 


反 ragma comment(lib，"libmatib.lib”) 


(6) 添加 计算 素数 的 代码 。 添 加 代码 后 ，mexFunction 代码 如 下 : 
void ComputePrimes(double* y, int n); 
BOOL IsPrime(int n); 


/DIIMain 函数 是 自动 生成 的 

BOOL APIENTRY DIMain( HANDLE hModule， 
DWORD ul_reason_for_call， 
LPVOID lpReserved ) 


Switch (ul_reason_for_cal]) 


case DLL_PROCESS_ATTACH: 

case DLL_THREAD_ATTACH: 

case DLL_THREAD_DETACH: 

case DLL_PROCESS_DETACH: 
break; 











retulr 了 开 RUE; 


void mexFunetionfintn]hs mxX 太 rray*+ plhs[], int nrhs, const mmXATTay*# Prhs]) 
{ 

1 和 输入 /输出 参数 语法 检查 

这 fnrhs != 1) 

{ 





ITneXEirMIsgTxtf DOne input TequUired， 
1 
else 让 (nlhs > 1 
{ 


TIeXEYTMLSETXtC Too Tan9Y Oput a5gUmentS 分 


fx 输入 参数 必须 不 是 复数 ， 为 此 进行 以 下 诺 法 检查 叶 
int rmrows, menls; 

mrows = InXGetMIprhs[01); 

meols = ImXGetMNIPrhs[O]》， 


这 (tmxIsDombletprhs[ 的 ) mxIsComplexfprhs[Oj 


Inmrows == 1】 变 此 neels = 一 1 


{ 

mexErrMasgTxt"TInput mast be a noncompPlex scalar jntteger ); 
】 
# 读 入 输入 变量 


deable X, 9 
xX = InxGetScalartprhs[o]); 


六 reate Ttatrix for the return argument *7 
plhs[0] = mxCreateDoubleMatrix(mrows 六 ] sp finb XIREAL 


Yy = ImXx0etPrtplhs[0]J; 


fF 计 算 素 数 


CornputePrimesty， (int) X 


| 


4 了 手 程 序 ， 判 断 是 否 素 数 
vaoid CormputePrimestdouble* y, int t) 


| 
sa 站 与 


int index=, j=2; 
while (index!=n) 
让 (IsPrmeriy 
{ 
yindex]=ii 
ideX 十 十 ; 


1 十 十 


f 旭 果 是 喜 数 ， 进 行 条 出 
BOOL IsPrimelint D) 
foer fint ji=2: 这 一 mn 2: i++ 
计 tn 名 ij==0) 
Teturr 上 和 LS 
retum 了 RUE; 
] 
《7) 网 译 将 生成 MEX 文件 comprimes.dli， 它 可 以 在 MATLAB 下 运行 。 在 MATLAB 提 
示 符 下 输入 ; 
>> COmputeprimnestg) 
ans 一 
2 3 5 了 11 13 17 19 
当然 ， 可 以 在 MATLABHE 中 编辑 一 个 同名 的 MATLAB 文件 ， 即 compnuteprimes.m。 它 只 
包含 一 坚 帮 助 信 息 。 下面 的 代 冯 上 头 是 个 例子 .这样 ， 几 疡 在 使 用 此 函数 时 输入 “heip 
computeprimes ”， 妇 可 得 到 关于 本 函数 谢 法 的 帮助 信息 。 


netion y=ComputePrirmestn) 





呢 TNI1S Progrart ealculates rst mn pritmic number 
综 and save them toarmatmx fy) 

允 size of matrix 让 LXn 

名 

EXaTTID]E: 

呈 y=COImPUtePTiTIESLS) 


名 


* 站 间 。 








48 小 纤 




















MEX 六 件 虹 然 具有 较 强 天 的 功能 ， 但 并 不 是 对 所 有 的 应 用 都 恰当 。MATLAB 是 一 个 高 
效率 的 编程 系统 ， 特 别 适 人 台 于 工程 计算 、 系 统 仿 真 等 应 用 。 它 的 最 大 优点 就 是 将 人 们 从 复杂 
的 程序 编 气 ! 解 放出 来 因此， 能 够 用 M 文件 完成 的 程序 应 尽量 使 用 MATLAB 编写 ， 踪 非 
遇 到 必须 使 用 MEX 六 件 的 情况 。 

需 杰 说 明 的 是 , MATILAB 到 C 语言 程序 的 转换 可 以 出 两 种 途径 完成 , 其 一 是 MATILAB 日 
已 提供 的 C 语言 翻译 程序 mec， 另 一 种 昨 原 第 3 方 公司 MathTools 开发 的 Matecom。 后 着 出 
规 较 早 ， 功 能 远 比 MATLAB 自己 的 翻译 程序 强大 ， 所 以 MathTools 公司 已 经 被 MathWorks 
公司 收购 ， 并 已 将 其 开发 技术 融入 了 MATLAB 6.5 (Release 13) 以 后 的 版 本 中 。 

从 程序 转换 的 速度 来 看 ， 因 为 mec 和 Matecom 都 沿用 了 MATLAB 的 程序 运算 机 制 ， 所 
以 木 可 能 大 幅度 地 提高 程序 运行 速度 . 相反 地 , 如 果 将 MATLAB 程序 中 明显 的 瓶颈 部 分 用 C 
语言 按照 MEX 格式 编写 ， 则 可 以 大 大 加 局 速度 。 

本 章 详细 介绍 C-MEX 文件 ， 包 括 叱 语言 的 MEX 盟 数 库 以 及 MEX 文件 在 MATLAB 和 
Visual C++ 环境 中 的 调试 。 



































= 全 了。 





第 5 音 通过 MATLAB 引擎 实 现 混 合 编程 


5.1 MATLAB 引擎 简介 


有 indows 是 一 个 多 任务 的 操作 系统 ， 允 许多 个 麻 用 程序 同时 运行 ， 放 用 程序 乙 间 有 多 种 
想 钉 | 可 以 下 相通 信 .。 事实 上 ,，MATLAB 可 以 被 C、Fortran 等 程序 调用 , 也 可 以 调用 它 、Fortran 
程序 。 从 编程 复杂 度 的 前 度 看 ， 通 过 引擎 实现 混合 编 积 是 最 简单 的 途径 ， 即 在 共 他 应 用 程序 
由 向 MATTLAB 发 送 命令 ， 控 制 它 的 运行 。 在 这 种 情况 上 下， 用 户 的 C、Fertran 应 用 程序 将 
MATLAB 作为 一 个 计算 或 图 形 显示 的 引擎 来 调用 ， 
所 谓 MATLAB 引擎 (Engine),， 昆 指 一 组 MATLAR 提供 的 接口 通 数 , 它 支持 C 和 Fortran 
册 利 语言 。 通 过 这 些 接口 蚊 数 ， 用 户 可 以 在 C 或 Fertran 的 应 用 程序 中 实现 对 MAILAB 的 控 
制 ，MATILAB 引擎 肯 数 库 在 后 台 工 作 ， 
攻 体 地 ，Visual C++ 之 类 的 遂 川 编程 壮 台 ”最 利 用 MATILAB 引擎 完成 以 下 功能 ; 
三 调用 - 个 数学 押 娄 或 者 子 程序 来 处 型 数据 。 这 时 ，MATLAB 就 是 一 个 组 有 有力、 编程 
灵活 惠 沿 效 的 数学 函数 库 . 
调用 MATLAEB 的 图 形 秃 数 库 ， 将 一 些 Visual C++ 编程 复杂 度 高 、 难 以 实现 的 图 形 
显示 任务 由 MATLAB 处 岂 . 这 时 ，MAILAB 就 是 :个 功能 强大 的 图 形 丽 数 库 。 
利用 MATLAB 编程 高 效 和 经 人 的 计算 能 力 ， 结 合 Visual C++ 之 类 的 通用 编程 半 台 
输入 、 输 山 动 能 强大 ， 编 号 图 形 界 面 简单 的 特点 ， 可 以 为 特定 的 任务 建立 一 个 高 效 
的 、 界 面 友好 的 系统 ， 达 到 缩短 开发 周期 、 降 低 开 发 难 虞 的 日 的 。 
通过 MATLAB 引擎 ， 应 用 程序 会 打开 一 个 新 的 MATLAB 进程 。 可 以 控制 它 宪 成 任何 二 
算 和 给 入 工作 , 对 所 有 的 数据 结 档 都 提供 支持 。 因 此 , 实际 上 媒 用 程序 是 预先 存储 了 MATLAB 
的 命令 ， 针 后 自动 地 送 给 MATLAB 执行 . 
与 其 他 各 种 编程 接口 相 比 ，MATILAB 引擎 方式 最 简单 也 最 全 而 ， 而 此 工作 时 不 市 要 
MATLAB 整个 与 应 用 程序 相连 ， 上 从 直上 音 一 小 部 分 引擎 通 售 因 数 库 与 程 寿 相连 。 因此， 它 和 人 
节约 了 系统 资源 ， 偿 可 以 充分 利用 阿 络 资源 ， 将 计算 任务 繁重 的 上 作 旅 到 性 能 最 好 、 运 算 能 
力 最 强 的 计算 机 上 ， 通 过 网 络 运行 MATLAB 引擎， 
































































































































S.2 MATLAB 引擎 库 函 数 


MAILAB 引擎 库 包 售 了 一 系列 从 外 部 应 用 程序 调用 和 榨 制 MATLAB 引擎 的 疝 数 。 表 

5-1 列举 了 C 语言 的 引擎 库 数 ， 这 些 函 数 都 使 用 了 eng 前 缀 名 。Fortran 语言 的 引擎 函数 库 
与 它 语 圭 -的 引 苞 函数 库 类 似 ， 本 忆 从 临 ， 

语言 的 引擎 库 函 数 的 定义 部 在 尖 文 件 enginch 中 定 尽 。 需 要 说 明 的 是 ， 后 4 个 天 数 

saiviible. engGetVisible、engGetVariahle 和 engPutVariable 是 MAITLAB 6.1 新 增加 的 。 而 

engPutArray 和 engGetArray 已 经 过 时 ， 它 们 分 别 被 eagPutVariable 和 engGetVariable 所 取代 ， 








的 呈 。 











但 仍 癌 以 使 用 。 


EngtDPem 


表 5-1 避 语 言 引擎 函数 库 
功能 措 壕 








自动 MATLAB 计算 中 区 





engCGetarray 


且 MATLA 引 敬 获得 一 个 MATLAB 矩阵， 用 于 数据 变换 





呈 DLEEhutAAITSY 
engEvaiStrinE 
engOutputBuiter 


en 人 PensingleUse 


从 应 用 程序 向 MAILAB 引 敬 发 送 一 个 MATLABH 洒 阵 ， 用 于 数 撕 变 换 





执行 一 个 MATPLSS 而 念 





创建 字符 组 冲 区 ， 以 装 取 MATLAB 文本 输出 





打开 一 :个 凋 儿 的 非 共 享 的 MATLAG 计算 引 敬 








SEC LOSe 








关闭 MATLABR 引 区 








RngSetwisibe 





engkjetwjsible 
engCietVariable 


engEPutwariable 





设 署 MATEAE 的 显 拓 或 隆 蕊 状态 





返 串 MATLAB 显示 状态 








从 MATLAB 工作 区 【Workspace) 获取 “个 变量 











将 指定 名 称 的 MATLAB 变 基 人 存 信 MATLAB 工作 区 


Engine.h 中 对 这 用 个 函数 的 定义 如 下 


六 


*# 他 (#)eagineh 


冰 


Penerated by: raakeheader 3.10 Sai May 18 23203:04 2002 


可 built frorm: .includeAcopyrighch 


呆 


站 1 


大 fndef engine_h 


ftjefine engine_h 


上 $Revision: 1 4 本 光 7 


engapic 
engapiv4.c 
engapivs.C 
fengaPpi.c 
fengapivS.e 


meoxdlveritriodverc 


站 Copyright (cy 198S-2001 The MathWorks, Fne. 
林 各 ]] 有 Rights RESeTVed. 


下 


大 fdef cplusplus 


exXterm ”{ 


丰 nd 这 


069。 


=。 TD 。 


共 include <stdio,hb> 


##Iinelude “mat 和 h” 


fpPedef Struct engine Engine; 六 Ineotmplete detinition for Engine +7 


* 了 Xecute Iatiab stateimaent 
呈 
extem int enSEvalString 
Engine *CD， 上 Engine pointter */ 
ConSt Char *String String for Imatlab [exXecUe 3 


》 


卡 
本 Start matlab process for single Use. 
4 Mot cutrentty sSUPPorted on UNIX. 
下 
Exterm Engine *engOpenSingleUSe 
Conest cehar +startctnd rz exec cornand strinmg Used to Statt inatlab #/ 
vaid #reseryed, fr Tcservyed for futmre usey, mst be NULL *7 
int *#relstatus 六 Teturn Statins 闻 / 


用 


此 
上 Setwisible, do mothjing since this fnction is only for NT 工 
3 
exXterm int engSetrwVisible 
Engine *ey， engine Dointer */ 


boo]l newyWal 


于 
二 
# fjietwisible, do nothing sinee this hinhction is only for NT 
extem int engfjetVisiblef 
Engine *&ep， 片 egine pointer 
bonol* bV 引 
站 
二 
本 有 tart rnatlab ProcesSs 
站 











extern Engine *emgtCpert 
eonst char #startcmd /fr exXec cotnimangqg string used to start matiab */ 
机 


六 
# Clpse dowhn Inatlab ServeETI 
灶 六 


exXtera int enECUoseL 


Engine 站 让 上 engine Pointer 半 / 
六 
上 环 
* Get a vatiable with the specified name from MATLAB'S wotkspace 
几 / 


exterm mxXArray fenEgGetVarigblel 
Engine Yep， 产 engine PCinteT 二 
cormst Char #narmer+ name of variable te get :7 


玫 


*# Pbt a variable into MATILAB'S wetkspace with the Specificed narTpe 
站 
extetn int engPutVariablet 
Eneine 站 记 P， 贱 ellgine Potnter #7 
COnst Chat #YaT_Daitte， 
const InDXArray *ap 全 aifay Pointer 9/ 


入 


汪 Tegistef a buffer to hold matlab texc OutPUL 
冰 / 
extetm int engCOutputBuffet 
EngSine 半 包 白 ， z engine Bointef s7 
echar *buffer， jz character array to hold output 
int buflen 六 buffer atTay leng 纯 #/ 
相 


胡 jefine engOPpenyw4() carnnot call_engOPenV4 
jefine engGetFull ) engGetFull_ js_obsolete 
直 efine engPutFHuil( ) engPutFull is_obsolete 
define engGetMatix() engGetMatrix_ is_ohbso jete 


ma 。 








抽 efine enePutkfatrixf ) engPutkMatrix_is_obsolete 


扩 fdefinedfIVs_ CDMPAT) 

和 efiine engbPuatArrayfep, ap) engPutVariablefep, rmxeGetNametapl,. ap} 
胡 jefine engGetAirayfep, name)y engtietVariabletep. nane) 

并 ESE 

define engPutArray( ) engEPutArray_is_0Obsolete 

胡 lefine engCGearrayt ) engUetarray_13s_Dbselete 

矶 ndiir# definedkV5 CDNMPATI + 


折 tdef cpluspjus 
上 总 人 te CC ”本 
并 end 这 


#endif ye engine h :7 


下 面 从 功能 描述 、 函 数 麻 型 和 参数 说 明 三 个 方面 对 名 8inemn 中 定居 的 己 说 和音 引 警 图 数 进 
行 详细 介绍 。 


1，engOben 


功能 描述 ， 避 动 MATLAB 计算 引擎 . 

函数 床 型 ，exterm Engine *engOpen(const char *startcmg)]。 

参数 说 了 明 : 输入 参数 为 -- 个 字符 指针 ， 冰 数 通过 该 指针 指向 的 字符 串 所 包含 的 靖 念 与 
MATLASB 建立 一 个 连接 ， 打 开 一 个 MATLABE 进程 ， 返 回 一 全 MATLAB 引擎 类 型 的 指针 ， 

在 Windows 系统 中 ， 该 函数 打开 一 个 ActiveX 通道 并 将 它 与 MAILAB 进行 连接 ， 靖 数 
所 启动 的 MATLAB 是 在 安装 时 就 已 经 注册 了 的 。 如 果 所 安装 的 MATLAB 木 注 册 ， 可 以 使 用 
如 下 命令 进行 注册 :， miatlap /regservef 。 




















2，engtetAtrray 


功能 描述 ， 从 MATLAB 引擎 的 本 作 区 装 得 个 MATLAB 省 阵 ， 

冰 数 诛 型 ，mxArray xengGetArray(Engine *ep, const char xmarme)。 

参数 说 明 : 参数 印 是 引擎 指针 ，name 丰 希 望 从 MATLAB 引擎 的 下 作 区 间 将 得 的 年 阵 的 
和 名字。 有 返 国 佑 是 :个 mxanrray 结构 体 的 指针 。 划 果 邱 烤 执 行 成 功 ， 则 返回 一 个 指 同 新 分 配 的 
mxArray 结构 体 的 指针 ， 否 则 返回 0。 

注意 : 最 后 要 释放 该 函 数 新 创建 的 mxArray 结构 体 ， 











3， eneEPutAtiray 


功能 措 述 ， 从 应 用 程序 向 MATLAB 引擎 发 送 一 个 MAILAH 矩阵 。 

函数 诛 型 ，int engPutArray(Engine *ep, const mxAray +mp)。 

参数 说 明 : 参数 印 为 MATLAB 引擎 类 型 的 指针 ，mp 为 指向 和 矩阵 的 指针 ， 指 向 需要 答 
出 到 MATLAB 计算 引擎 工作 区 中 的 mxArray 结 樟 体 . 如 果 MATLAB 引擎 的 工作 不 包 合 所 指 


时 了 了 全 


定 的 mxArray 结构 体 ， 则 函数 自动 创建 一 个 名 称 为 mp 的 新 年 孟 ， 如 果 引 警 的 工作 了 包 信 所 指 
定 的 mxArray 结构 体 ， 则 醇 数 将 用 新 值 履 盖 旧 值 ， 若 葬 数 执行 成 功 则 返回 0， 否则 返回 1， 








4 enegEvaiString 


功能 描述 ， 执 行 一 个 MATLADB 命令 。 

函数 原型 : extem int engEvalString(Engine *ep. const char *sString)。 

参数 说 明 :ep 为 engOpen 打开 的 engine 指针 .Suing 为 字符 串 , 指向 一 个 需要 在 MATLAB 
计算 引擎 的 工作 区 中 执行 的 字符 串 。 表 数 返 回 0 表示 成 功 执行 ， 返 回 1 则 表示 印 对 应 的 
MATLAB Engine 已 经 关闭 。 

注意 : 需要 在 MATLAB 计算 引擎 的 工作 区 中 执行 的 字符 事 要 符 念 MATLAB 的 语法 ， 





S，engCOutputBufiter 


功能 描述 ， 创 建 字 符 缓 阐 区 ， 以 获取 MATLAB 文本 输出 。 

函数 原型 ，exter int engOutputBuffer(Engine *ep, chaf  *buffer, int buflem)。 

参数 说 明 : ep 为 事先 打开 的 MAILAB Engine 指针 , buffer 为 字符 型 缓冲 区 的 指针 , buflen 
为 最 大 保存 的 个 数 ， 通 常 也 就 是 缓冲 区 的 大 小 。 该 函数 为 ep 指向 的 MATLAB 引擎 设置 从 
buffer 指向 的 长 度 为 buflen 的 缓冲 区 。 只 有 设置 了 输出 缓冲 区 后 ， 所 有 后 继 的 engEvalString 
操作 产生 的 输出 才 会 保存 在 组 神 区 中 。 














6，engOpengSingleUse 


功能 描述 ， 打 开 -个 单独 的 非 共 享 的 MATLAB 计算 引 警 《UNIX 系统 不 支持 )。 

函数 原型 ，extem Engine engOpenSingleUse(const char *startcmd，Vvoid *Teserved，int 
料 TetStatUSy。 

参数 说 明 ，startemd 为 命令 字符 串 以 启动 MATLAB 进程 ，reserved 为 保留 字 ， 肌 retstatms 
为 返回 的 状态 。 函 数 的 返回 值 为 打开 的 计算 引 敬 ， 这 个 函数 不 常用 。 


了 7 了， engt 1o08e 


功能 描述 ， 关 闭 MATLAB 引 葡 。 

函数 原型 extern int engClose(Engine *eD。 

参数 说 明 ， 输 入 参数 印 为 已 经 打开 的 MAITLAB 计算 引擎 。 返 回 “0” 表 下 成 功 关 闭 ， 
返回 “1” 表 示 返 回 出 钳 。 

8、emngGetwariable 


功能 描述 ， 从 MATLAB 工作 区 〈Weorkspace) 获取 一 个 变量 。 

函数 原型 ，extern ImxArray *engGetVariable(Engine *ep, const char *namie)。 

参数 说 明 ，MATLAB 6.5 新 增加 的 引擎 函数 ， 符 代 丽 数 engGetArray， 使 用 力 法 与 
engGetArray 类 似 。 其 中 ，ep 为 指向 MATLAB 引擎 的 指针 ，name 为 一 个 字符 常量 ， 它 是 
MATLAB 引擎 工作 区 存在 的 一 个 变量 的 名 称 。 


= 了 3 


咏 。 engPutVariabe 


蕊 能 描述 ， 将 指定 名 称 的 MATLAB 变量 在 入 MATLAB 工作 区 。 

聊 数 原型 ; extern int emngPutVariable(Engine sep，const char *var_liatme，const IDXATray 
水 和] 。 

参数 说 明 ，ep 为 指 同 MATLAB 引擎 的 指针 ai 为 指 回 即 将 输出 到 MATLAB 引擎 工作 
区 中 的 mxArray 类 型 的 变量 名 ;name 为 指向 InpxArmray 奖 型 的 指针 ， 它 是 在 MATLAB 引擎 反 
中 的 变 晤 名 。 


10，engSetVisible 


功能 描述 :设置 MATLAB 的 显示 或 隐藏 状态 〈 对 Windows 20007NT 系统 有 效 )。 

未 数 原型 ，exterm int engSetVisible (Engine *ep, bool newVal) - 

参数 说 明 : e 是 MATILAB 的 引擎 指针 ， 当 newVal 为 1 时 ， 显 示 打 开 MATILAB 引擎 即 
MATLAB 在 Windows 任务 栏 是 可 见 的 。 反 之 ， 当 newwal 为 站 时 ， 隐 藏 MATLAB 窗 启 ， 人 得 
MATLAB 仍然 在 后 人 台 运 行 。 


11、engGetVisible 


功能 描述 :判断 当前 的 MATLAB 窗口 是 否 赴 打开 的 。 

函数 原型 ，extern int engGetVisible (Engine *ep, boolt bVal) 。 

参数 说 明 ，ep 是 指向 MATLAB 引擎 的 指针 ，bwval 是 指向 返回 值 的 指针 。 因 为 应 用 程序 
中 很 少 需要 查询 MATLAB 窗口 是 睾 打开， 故 这 个 冰 数 也 很 少 用 。 


53 Visual C++ 调用 MATLAB 引擎 时 的 环境 设置 


当 在 Visual C++ 环境 下 调用 MATLAB 引擎 时 ， 编 译 接口 蒜 壕 的 配置 较为 简单 ， 主 要 有 
以 下 两 步 《 假 设 MATLAB 安装 在 目录 CAMATILAB6p5 下 ) 。 











1， 添 加 MATLAB 引 洁 库 的 藉 文 件 和 库 函 教 的 路 径 


打开 第 单 “Tools”， 选 取 “Options,， ->Directories”。 在 “Show directories for” 选 项 卡 选 取 
“Jnclude fles” 添加 “CANMAILAB6PSEXTERNNNCLUDE”( 如 图 5-1 所 示 )。 它 是 MALILAB 
引擎 库 的 头 文件 engineh 所 在 的 目录 。 然 后 在 “Show directories for” 选 项 下 中 选取 “Library 
Files”， 深 加 “CAMATLAB6PSEXTERNALIBYWIN3S2MICROSOFTWMSVisual C++60”( 如 图 
s- 所 示 )， 因 为 这 些 引擎 库 用 到 的 动态 链接 库 都 在 此 日 孙 下 








2， 完 成 MATLAB 引擎 对 应 的 静态 链接 库 的 导入 工作 


在 菜单 “Project>Setting” 下 ， 选 取 “Link” 选 项 卡 ， 在 “ObjectULibrary Modules” 里 添 
加 libmxlib、libmex.Hb 和 1ibeng.iib。 注 意 三 个 文件 名 中 间 以 衬 烙 分 开 《〈 如 网 $-3 所 示 ) 

注意 : 库 函 数 libeng.lib, libmatlib, ibmex.lib 和 libmxlib 在 MATLAB 6.0 以 前 版 本 中 没 
有 有， 需要 通过 命令 行 操作 得 以 生成 这 几 个 静态 链接 库 。 以 libeng.lib 为 例 。 








。 4 ， 


进入 Visual C++ 的 安装 目录 后 ， 再 进入 \bin 子 目 录 ， 然 后 按 以 下 格式 运行 命令 lib: 
lib /def: cmatlab6pS\extern\include\libmx.def /machine:ix86 /out: libmx.lib/LOGOGO 


在 C++Builder 中 ，MATLAB 提供 的 def 文件 允许 用 户 通过 implib 命令 生成 相应 的 lib 
文件 。 














Editor | Tabs | Debug | Compatibility | Build Directories | worksi 





Platform: Show directories for 
[win3z 可 [ncude 伸 es 了 ] 
Directories: 门 X 拿 世 





CxProqram Files\Microsoft Visual StudioWYC98VWINCLUDE 
CYProgqram Files\Microsoft Visual StudioVVC98\MFCVWNCLUDE 
j j dinAVCq8a D 


AMATLAB6P5\EXTERNVNCLUD 


图 $-1 Include files 路 径 配 置 对 话 框 


经 试验 发 现 ， 第 二 步 的 设置 可 以 改 为 : 在 Visual C++ 6.0 环境 中 ， 选 择 “Project” 菜 单 中 

的 “Add to Project” 命 令 ， 然 后 选择 Files 选项 ， 将 C:xmatlab6pS5\extern\include\lib\win32 

\Microsoftwmsvc60 目录 下 的 libeng.lib 、libmex.lib 和 libmx.lib 文件 添加 到 工程 中 。 它 同 样 可 以 
将 三 个 静态 链接 库 添 加 到 当前 工程 中 来 。 

[ZN 了 局 

Editor | Tabs | Debug | compatibility | Build Directories | works 








Platform: Show directories for 

[win32 -|] [bubrary f 介 es *] 
Directories: SR 
| 















CAProgram Files\Microsoft Visual StudioWYC98\VLIB 
CAProqram Files\Microsoft Visual StudioWYC98\MFCALIB 
MATLAB6P5VBINYYIN32 
CAMATLAB6P5 4 RNAWLIB 





WIN32YMICROSOFTMSVYVCBD0 


图 5-2 ”Library files 路 径 配 置 对 话 框 


es。 TS 。 


General | Debug | cict+ Unk | Resources | Bi 
Category' [Geneml 可 Reset | 
昌 fle name: | 重 5 


JpebueMyEngrestexe 


kernel32.lib user32.lib gdi32.lib winspool.lib 
]comdlg32.lib advapi32.lib shell32.lib ole32.lib 
耳 oleaut32.lib uuid.lib odbc32.lib odbccp32.lib 





图 $-3 Engine 方式 静态 链接 库 设 置 


【 例 5-1】 下 面 通 过 一 个 简单 的 实例 来 说 明 MAITLAB 引擎 的 使 用 ， 它 是 一 个 基于 对 话 框 
的 MEFC 应 用 程序 ，Visual C++ 下 利用 MATLAB 工具 箱 进行 信号 处 理 和 图 形 显示 的 操作 。 
启动 Visual C++, 建立 一 个 新 工程 , 选择 MFC AppWizard(exe), 工程 名 为 MATLABEngine。 
在 “Step 1 of 1” 中 选择 “Dialog based”， 即 生成 一 个 基于 对 话 框 的 MEFC 应 用 程序 。 其 余 各 
项 采用 默认 设置 。 
使 用 库 的 头 文件 matlib.h。 首先 添加 MATLAB 引擎 库 的 头 文件 和 库 函 数 的 路 径 ， 然后 在 
MAITLABEngineDlg.cpp 中 添加 engine.h， 如 下 : 
/MATLABEngineDlg.cpp : implementation file 
// 


牛 nclude "stdafx.h” 
牛 nclude " MATLABEngine.h” 
相 nclude " MATLABEngineDlg.h” 


在 nclude "engine.h" // 添 加 MATLAB 引擎 头 文件 


添加 MATLAB 引擎 库 对 应 的 静态 链接 库 文 件 。 
在 对 话 框 窗 体 中 添加 一 个 按钮 ， 如 图 5-4 所 示 设 置 按钮 的 标题 (Caption) 和 控件 ID 。 





图 5-4 ”按钮 控件 的 标题 和 控件 ID 设置 对 话 框 


。76 。 


通过 Visual C++ 的 ClassWizard， 添 加 按钮 的 单 击 响 应 事件 ， 并 浴 加 如 下 代码 。 
woid MATLABEngineDlg::OnMATL 和 BEnginet ) 
{ 
Engine wep: # 定 光 MATTAEH 引擎 变量 


MessageBoxf" 单 击 他 定 按钮 ， 克 jadows 正在 准备 启动 MATLAB 引擎 人 
"MATLAB 引擎 MB_OK ITMRB_ICONTNFORMATIDIT: 


if(f(ep=engDOpenfA0") 对 T 开 MATLAB 引擎 
{ 
和 rintflstderr "mm MATLAB 引 亚 让 动 火 败 %n 
MessageBox("MATLAH 引 黄 崩 动 失 败 ! "MATLAB 引擎 “， 
MB_OK IMB_ICONERRORJ): 
eXit[- 上 》; 


MessageBox(" 单 击 确定 按钮 ， 隐 藏 MATLAB! "MATLABEB 引擎 "， 
MB_OK1MB_ICONINFORMATIONJ; 
engSetVisibletep, 0 1 隐藏 MATLAHE 窗 语 





MessageBoxt" 单 击 人 确定 掠 钮 ， 系 统 重新 显示 MATLABT"， 
"MATLAB 引擎 "， MB KMB_TICONINFORMATIGONTY 


engSetwjsiblefep. 1: 重新 显示 MATLAES 窗口 





TAITaY =]NULEL， 
double time[10] = { 0D.0. 1.0. 2.0. 3 4 人 0 5.0 和 0 7 了 0. 38.0.9.0 ]; 


1 生成 矩阵 
工 =TIXCreateDoubleMatrixf1，10. InXR 王 和 AI) 
Inemcpyffyeoid #JinXGetPr(TJ, (void *)time, sizeo 所 ttme1j 


1 将 矩阵 变量 写 MATLAB 引 敬 的 工作 区 
engPutVariablefep，T ，T); 


/通过 MATLAB 引擎 执行 MATLAB 命令 
engEvalString(ep，“D = .5.*(-9.8).4 开 .2 
enEEvalStringtep， BDIOUCT.D3: 
engEvalString(ep， "titlef'Position ys. Time for 3 faljing Object 
engEvalStringfep，x]abel( 工 me 《Seconds] 7 7 

engEvatString(ep， "ytapeltCPosition (mmeters); 


enEEvalStrimgtep， grid on yi 


/释放 矩 阵 变量 T 占用 的 内 存 空间 
mxDestroyArray(T); 


MessageBox(" 通 过 例 程 ， 说 明 MATLAB 的 图 形 显示 能 力 必 ， 
"MATLAB 引擎 "， MB_OK 1MB_ICONINFORMATION); 


/ 画 一 条 花 

engEvalString(ep，"x=-8:0.5:8; ); 
engEvalString(ep，"y=X;”); 
engEvalString(ep，"[Y,X]=meshgrid(y,x);”); 
engEvalString(ep，"R=sqrt(X.^2+Y.^A2)+eps; ); 
engEvalString(ep，"Z=2*#sin(R)./R; ); 
engEvalString(ep，"surf(X,Y,Z); ); 


MessageBox(" 关 闭 MATLAB 引擎 ， 系 统 将 退出 MATLAB 应 用 程序 "， 
"MATLAB 引擎 "， MB_OK1MB_ICONINFORMATION); 
engClose(ep); /关闭 MATLAB 引擎 ， 退 出 MATLAB 
} 


按 F7 键 编 译 后 再 按 Ctrl+F5 组 合 键 运行 ， 将 会 出 现 对 话 框 。 单 击 “MATLAB Engine” 按 
钮 ,将 会 出 现 Windows 的 标准 信息 框 , 出 现 * 单 击 确定 按钮 , Windows 正在 准备 启动 MATLAB 
引擎 !" 提 示 信 息 。 单 击 ^“ 确 定 ” 按 钮 , 可 以 看 到 任务 栏 出 现 MATLAB 的 图 标 , 它 表 示 MATLAB 
已 经 启动 。 然 后 会 出 现 “ 隐 藏 MATLAB ”的 信息 提示 框 ， 同 样 单 击 “ 确 定 ” 按 钮 ， 可 以 看 到 
任务 栏 上 的 MATLAB 图 标 立 即 隐藏 (注意 : MATLAB 此 时 仍 在 后 台 运 行 ， 只 不 过 在 任务 栏 
隐藏 了 它 的 图 标 ) 。 然 后 ， 按 照 提 示 进 行 操作 ， 系 统 会 在 任务 栏 出 现 “ 重 新 显示 MATLAB 
的 图 标 ” 信 息 ， 并 先后 出 现 如 图 $-5 和 图 $-6 所 示 的 实验 结果 。 


Ele Ed Jew Insert Iooks Window He 
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图 5-5 实验 图 形 一 


可 以 看 出 ，MATLAB 引擎 工作 方式 实质 上 是 Visual C++ 等 通过 编程 平台 实现 了 和 
MATLAB 的 交互 ， 它 将 需要 在 MATLAB 环境 中 执行 的 命令 预先 “存储 ”在 Visual C++ 的 应 


7TR 。 


用 程序 中 ， 然 后 自动 地 送 给 MATLAB 执行 。 当 然 ， 可 以 通过 向 MATLAB 引擎 的 工作 空间 读 


取 或 写 入 变量 实现 MATLAB 和 Visual C++ 的 数据 交互 。 





j Figure No. 1 


ID 翁 加 @@l AAA 有 及 汪 








图 5-6 ”实验 图 形 二 


5$.4 MATLAB 引擎 类 的 封装 


5.4.1 _ CMATLABEng 类 的 定义 和 实现 代码 


通过 MATLAB 引擎 方式 实现 混合 编程 较 简 单 ， 主 要 是 添加 必要 的 头 文 件 和 库 文件 ， 然 
后 调用 MATLAB 引擎 库 函 数 。 尽 管 如 此 ， 为 了 进一步 简化 MATLAB 引擎 的 使 用 ，A. Riazi 


博士 封装 了 MATLAB 的 引擎 类 。 
以 下 是 MATLAB 引擎 类 CMATLABEng 的 头 文件 MATLABEng.h: 
/MATLABEng.h 
提 fndef LMATLAB_ENGINE_H_ 
#define _LMATLAB_ENGINE_H_ 


HA 
机 fndef FALSE 


#define FALSE 0 
#endif 


#fndef TRUE 
#define TRUE ] 


#endif 


打 nclude " MATLAB.h” 
朱 nclude "Engine.h” 


/WMATLAB library - 自动 链接 MATLAB 的 库 函 数 


es。 TO 。 





4 吕 门 。 


#pragrna Soment(jib，"1ibene,1ib'") 
#PTagma comTmentlib， ibmx.lib”) 
存 ragnmla commentflib，"]ibmatib.lib") 
趣 ragimna cominentflib，"]ibmatlib”"》 


丰 pragma commentflibh，librmrmfilelib 


#_MSC_ VER > 1000 
#pTagma Once 
endqifA_MSC_VER > 1000 


class CAMATLABEne 
BuUblice: 
/定义 的 MATLABEngine 类 成 员 函 数 
int outputBufifertehar *p, Int ny 
void OPpenSingieUsetconst char ystartctmd, veid ydcom int #retstatus); 
int Cietwisjbletboel valuey 
int SetVisjblefboet value]; 
TIXAATTayz# CetVariabjetconst chatry narmej: 
int Putwariableteeonst char *manme。 coTSt TIX 上 Tray #IP); 
int EvalStringftConst chary StrinB 和 
void OpPenleenst chary StartC mngd); 
jnRt 人 1]086t 着 


CMATLABEng()， /构造 函 娄 
virtual ~CMATLABEng() ww 析 构 函 数 


protected; 
ESines PENE; 
} 


f#enditA_ MATLAB_ENGINE H_ 

以 王 导 MATLABHB 引擎 类 CMATLABEng 的 实现 文件 MATLABEngcpp 代 友 : 
PMATLABEngine.epp: implernentation of the CMATLABEnS class. 

玉 

AAA 


芽 include ”Stdafx.h” 
#inelude "MATILABEng.h” 


AAA 
总 enstrucHotmyDestruetion 











AAA 阴间 


CMATLABEnegcCMATLABEngI ) 
{ 

bEng=NULL: 
] 


CMATLAHEEng::~-CMATLABEngr ) 


{ 
(人 PEBnagi=NULLI 
人 LoseT 


void CMATLABEnDg:Opherlconst char *Srarttimd) 


{ 
PEDE=engCOpermStartCmdji 
1 


int CMATLABEng::Close( ) 


it Result=eneClosefPEnE》; 
让 (Resbjlt==0) ASuccess 
PEng=NULL: 


TetuTr ResUlt， 


] 


int COMATLABEng::EvalString(const cnar #*string) 


{ 
returmn [engEvalString(PEmnEg, string 妃 ; 


] 


mxXArrayy CNMATLABEng::GetVariabletconst char *maltte) 


retum engtetwVarahletPpEng， name 诱 ; 


】 


intCMATLABEng::Getwiasible(bool*y Value) 


{ 
retuim (engGetWisibjetPEnS, Value 放 ; 


void CMUATLABENELOPenSinEIeUSe(const char *startomd, void *dcom, int "retstatus) 


= 全 1 





DEng=engODPenSingleUSefstartcrtd decotmm Tetstatus); 
] 


intCMATLABEng::DOutpurBuftercehar spP, int mn) 
f 

return (eneOutputButfer(pEng. P, nyH 
1 


intCMATLAEBEng::PutVariabletconst char sname cnnst mxATray *Tmp) 


{ 
Teturn (engPutwariabletPEng, natmey mp]y; 


} 


intCMATLABEng::SetYisibletboo] value) 


{ 
return fengSetVjsiblelpEng， Value 放 ， 


} 
5.4.2 CMATLABEng 说 明 


甘 装 CMATLABEng 类 是 为 了 方 合 MATILABEngine 的 使 用 。CMATLABEng 类 共有 9 个 
成 员 函 数 ， 每 一 个 成 员 冰 数 在 MATLAB 引 莹 API 中 都 有 对 应 的 奖 数 ， 且 类 似 。 建 议 与 第 1.2 
节 巾 MATLAB 引擎 库 函 数 对 照 阅 读 ， 下 而 对 CMATLABEng 类 的 成 员 函 数 的 原型 、 荔 能 描 
述 和 参数 进行 赔 明 。 





1，COPen 

函数 原型 ，void Openfconst chats StartCimd)。 

功能 描述 : 打开 MATLAB 引擎 进程 ， 合 MATLAB 作为 计算 引擎 。 

参数 说 明 : StartCimd 为 指向 字符 串 的 指针 。 在 windows 系统 下 ， 一 般 设 置 为 NULL。 





2 futputButter 


函数 电 型 ，int OutputBufferfchar sp, int m， 

功能 描述 ， 指 定 MATLAB 得 出 的 缀 冲 。 

参数 说 明 : jp 为 指向 字符 串 缓 冲 的 指针 ; nm 为 字符 绅 缓 种 的 长 虚 。 

这 个 丽 数 指定 一 个 字符 串 缓 冲 ， 以 便 engEyalString 返回 一 般 在 胖 幕 上 显示 的 输出 。 
EvalString( ) : 般 会 于 弃 它 执行 的 命令 产生 的 标准 和 输出， 市 DutputBufferlep,p: 站 通知 后 继 的 
EyalString 保存 指针 p 指向 的 缓冲 区 中 输出 的 前 个 字符 。 关 闭 输出 丽 数 ， 可 以 通过 
OutputBuffer(ep,NULL,O) 写 成 。 

















3，OpensingleUse 


冰 数 原型 vojid OpenSingleUse (const char *startcmd, void *dcorm, int #retstatus)。 


间 和 了 





功能 描述 ， 打 开 - 个 单独 的 、 非 共享 的 MATLAB 进程 。 

参数 说 明 : startcmd 同 Dpenfconst char*x StartCmd) 相 同 。 在 克 indows 系统 下 ，“- 般 设 署 
为 NULL。Dcom 为 保留 字 ，- 一 般 为 NULL。retstatus 返 加 状态 及 各 种 引起 失败 的 原因 。 

这 个 立 数 允许 妇 动 多 个 MATILAB 进程 ， 以 让 MATLAB 作为 计算 引擎 。 它 返 回 独 一 无 二 
的 MATLAB 引 敬 标识 符 ， 如 果 失 败 则 返回 NULL。 





4 GetVisibe 


隐 数 原型 ，int GetVisible (bool# valuej。 

功能 描述 :返回 MATLAB 引擎 的 状态 在 任务 栏 是 显示 还 是 隐藏 。 
参数 说 明 :，value 为 布尔 型 。 

5， SetVisible 


函数 原型 ，int SetVisible (bool value)。 

功能 描述 ， 显 示 或 隐藏 MATLAB 引擎 在 作 务 栏 的 图 标 ， 

参数 说 时 ，value 为 布尔 型 。 若 为 1 则 显示 MATLAB 在 任务 栏 的 图 标 ， 若 为 0 则 关闭 
MAILAB 在 任务 栏 的 图 标 。 








6， GetVariable 


函数 原型 ，mxArray*+ GetVariable(econst char* name)， 

功能 描述 ， 从 MATLAB 引 获 的 工作 区 中 拷贝 一 个 变量 。 

参数 说 明 : name 为 指向 字符 串 常量 的 指针 ， 它 实际 上 就 是 MATLAB 引擎 工作 区 中 
mxArray 类 型 的 变量 名 。 当 变 贡 名 不 存在 时 ， 返 加 NULL。 

注意 : 当 使 用 完 变 量 后 ， 要 释放 内 存 空 间 。 





7，PntwVarable 


妆 数 原型 ，jint PutYariablefconst char *name, const ImXATray *#inp)。 

功能 描述 ， 输 出 一 全 变 量 到 MATLAB 引擎 工作 区 。 

参数 说 明 : name 为 问 MATLAB 引擎 工作 区 中 输出 的 变量 名 ，mp 为 指向 mxArray 类 型 
的 指针 ， 当 成 功 时 返回 值 为 1， 当 失败 时 返回 值 为 0。 


8，Evalstring 


函数 原则 : int EvalStrinag(const charx String)。 

动能 描述 : 向 MATLAB 引 获 传送 一 个 MATLAB 机 令 并 执行 。 

参数 说 明 ; String 为 字符 串 ， 指 问 一 个 需要 在 MATLASB 计算 引擎 的 工作 区 中 执行 的 子 符 
毕 。 函 数 返 回 0 表示 成 功 执行 ， 返 回 1 则 表示 印 对 应 的 MATLABEngine 已 经 关闭 了 。 

注意 : 在 MATILAB 计算 引擎 的 工作 区 中 执行 的 字符 事 要 符合 MATLAB 的 语法 . 





咏 ， 站 ]DSe 


函数 原型 : int Close )。 
功能 撒 述 : 关闭 MATLAB 5 引 警 。 


直 吕 李 











参数 说 明 : 返回 0 表示 成 功 关 闭 ， 返 四 1 表示 退回 出 错 。 
5.4.3 CMATLABEng 说 明和 使 用 方法 


为 了 通过 CMATLABEns 尖 使 用 MATLAB 引擎 功能 ,必须 在 Visual C++ 工程 进行 以 下 纲 

(1) 洪 加 matlabh 到 stdafx.h 或 者 需要 的 接口 和 执行 文件 中 。 

02) 染 加 库 文 件 到 Wisual C++H 工 程 中 。 根 据 具 体 情 况 ， 可 能 需 鉴 滞 加 的 库 文 件 有 libenglib， 
libmx lib. libmatlhib, lipmat.tib 和 Hbmamfile lib。 

(3) 添 如 CMATLABEng 类 的 定义 文件 MAITLABEng.h 和 实现 文件 MATLABEng.cpp 到 
本 程 中 ， 

(4) 定 广 … 个 CMATLABEng 类 型 的 变 旦 ， 

《5》 通过 CMATLABEng 类 的 成 员 孙 数控 制 MATLAB 引擎， 妈 发 送 烽 据 到 MATLAB 引 
擎 和 从 MATLAB 引擎 接收 煞 据 以 及 绘 阁 和 数值 计算 等 。 

6) 编译 工程 并 执行 。 





5 应 用 实例 


[ 例 5-2】 本 例 将 例 5 的 功能 改 为 由 CMAITLABEng 类 实现 。 为 了 简化 问题 的 说 明 ， 将 
例 5-1 基于 对 话 框 的 应 用 程序 改 为 基于 Win32 Console Application〈 控 制 台 应 者 程 序 )。 六 体 
包含 以 下 步 又 : 

启动 Wisual _ C++， 建立 一 个 新 工 释 ， 选 择 Win32 Console Applications， 工 程 名 为 
MATLABEngClass。 在 “Step 1 of 1” 选择 “A simple application”， 即 生成 - 个 简单 的 DOS 
控制 台 应 用 程序 。 其 余人 各 项 采用 默认 设 章 。 

使 用 库 的 头 文件 matiibh。 首 先 护 1.3 节 中 “Visual C++ 调用 MATILAB 引擎 时 的 环 噶 设 
署 ” 的 第 一 步 ， 添 加 MATLAB 引擎 库 的 头 文件 利 库 函 数 的 路 径 ， 然 后 在 stdafxh 小 深 加 以 下 
代码 ; 


碍 InClurie <stdd 训 .hh> 








#inelude <conio.h> 


共 ineclude <inatlab.nh>> 


淋 加 CMATLABEng 类 的 定义 文件 MATLABEngh 和 实现 文件 MATLABEng.cpp 到 工程 
中 。 创 建 空 的 C++ Souree Filie 和 CAC++ Header File， 分 别 命名 为 MAILABEng.cpp 和 
MATLABEng.h， 然 后 将 1.4,1 节 中 的 代码 复制 到 其 沾 ， 也 可 以 将 光盘 中 的 这 两 个 文件 复制 到 
当前 工程 日 录 小 ， 并 通过 菜单 “Project” 选 择 “Add to Project” 添加 到 工程 中 。 
在 和 白 动 生成 的 MATLABEngClass.cpp 中 漆 加 以 下 代码 : 
PMATLABEngClass.cpp : Defines the enuy point for he Console apptication， 
凡 


#iPnclude "stdafx.h” 


贡 nelude ”MATL 人 HEng.b” 
” 84。 











基 jefine messagelx] Printfttx nn 


int maintint argc char argv[]) 


CMATLABEng matiab:; 


Foperl new rratlab Session 
messagef" 府 动 MATLAB 引擎 ， 请 稍 候 …); 
matlab,OpPenONTULL》 


messagef" 准 备 在 任务 栏 降 藏 MATLAB 图 林 ”); 
Tmatlab,SetWisiblefF 各 LS) 

messagef" 单 击 任意 键 继 张 

getcht 





messageft" 在 任务 栏 显示 MATLAB 网 标 ”): 
Imatlab.SetwVjsibjefTRUE)， 

messagel" 单 击 任意 键 柴 续 "): 

EEChC 








ITnxArray *T = NULL: 
double time[10| = 1 0.0, 1.0.2.0, 3.0, 4.0, 5.0.0.0, 7.0, 8.0, 中 


/生成 矩阵 
T=mxCreateDouhbleMatrixf1, 10. mxREAIL); 
ImeTncPY(CCVOid * JIXCTECEPYCT)， 《weid 二 光 ie， sizeoft(Grne)， 


1 发 送 缸 阵 到 MATLAB 引擎 
messagef Send rmatrix 工 to rmuatah ); 
Taatlab.Putwatriablef 工 , 工 ); 


/通过 MATLAB 引擎 执行 MATLAB 命令 
matlab.EyalStringf"D = .5.*(-9.8.*T.A2i 


1 绘图 
Inessagef"Pjotf 了 , D) 7): 
matlab-.EvalStringf"plotfT.D) 
manap EvalString("titePosition vs. Time for aftalling Dbjecty 他 
matiab 上 valStringf"xlabelCTime fsSecondsy 和 
inatlab.EvalStringf"ylabelf'Position (TetetS) 和 芳 
Imatlab. 已 valStrinE( "grid，); 
8S。 


窗口 。 


和 角 





pause to See results 
message( "Press any key to continue"); 


getch( ); 


/释放 和 失 阵 T 所 点 的 内 存 空 间 


mxXxDestroyArray(T); 


/显示 MATLAB 的 图 形 输出 能 力 


message(" 显 示 MATLAB 的 图 形 输出 能 力 !; 


matlab.EvalString("x=-8:0.3:8;”); 


matlab.EvalString("y=Xx:; ”); 


matlab.EvalString("[Y,X]=meshgrid(y,x);”); 


matlab.EvalString("R=sqrt(X.^A2+Y.^2)+epSs; ); 


matlab.EvalsString("Z=2#sin(R)./R; ); 
matlab.EvalsString("Surf(X,Y,Z); ); 


/等 待 输入 任意 键 ， 以 观察 图 形 输出 结果 


getch( ); 


// 关 闭 MATLAB 引擎 


matljab.Close( ); 


return (0; 


} 


按 F7 键 进 行 编译 后 ， 按 Ctrl+F5S 组 合 键 运行 ， 会 出 现 如 图 $-7 所 示 的 DOS 控制 台 程 序 


5$-9 所 示 的 实验 结果 
可 以 看 出 图 5-8 和 图 -5 相同 ， 图 5- 
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按 提示 进行 操作 ， 任 务 栏 上 的 MATLAB 图 标 会 显示 后 隐藏 再 显示 ， 并 会 出 现 如 图 $-8 


与 图 $-6 相同 ， 即 直接 通过 MATLAB 引擎 库 函 数 


和 封装 后 的 CMATLABEng 类 取得 了 相同 的 实验 结果 ， 但 通过 封装 后 的 CMATLABEng 类 使 
用 更 简单 ， 更 符合 基于 MEFC 的 习惯 


”"F:\MatiabEngClass\Debuwqg\VMatiabEngClass EXE 这 er AR 





图 $5-7 ”控制 台 程 序 窗 口 


es。 GO，。 


Ble 6 yew Insert Iooks Window Hep 
口 沪 加 护 AP 同 嘱 


Position (meters) 





Time (seconds) 


图 5-8 ”实验 图 形 之 一 
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图 $-9 ”实验 图 形 之 二 


5.6 小 结 


本 章 详细 介绍 了 MATLAB 的 Engine 应 用 程序 接口 ， 包 括 直接 使 用 MATLAB 提供 的 
Engine 库 API 函数 以 及 将 这 些 API 函数 封装 为 CMATLABEng 类 的 方法 ， 并 举例 说 明了 在 
Visual C++ 程序 中 通过 MATLAB 引擎 库 API 数 以 及 CMATLABEng 类 控制 MATLAB 的 运 
行 ， 它 们 的 运行 效果 相同 。 相 对 来 说 ，CMATLABEng 类 较 MATLAB 引擎 库 API 更 易 使 用 。 
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第 6 章 MAT 文件 实现 数据 共享 


6.1 MAT 文件 简介 


MAT 文件 格式 是 MAILAB 专用 的 数据 存储 的 标准 格式 ， 也 是 默认 的 文件 格式 。 它 的 文 
件 名 是 以 .mat 为 后 缀 的 。MAT 文件 把 数据 存储 为 es MAT 文件 提供 了 一 种 简便 的 
机 制 ， 允 许 在 两 个 不 同 的 平台 或 不 同 的 应 用 程序 之 间 以 灵活 的 方式 共享 数据 。 

MAT 文件 是 MATLAB 专用 的 二 进 制 数据 文件 ， 因 此 不 能 用 文本 编辑 器 打开 ， 只 能 在 
MATLAB 中 打开 。 修 改 MAT 文件 中 变量 的 方法 是 启动 MATLAB 后 ， 在 菜单 File 中 选择 
Open， 然 后 找到 要 打开 的 MAT 文件 ， 则 MAT 中 的 变量 自动 载 入 到 MATLAB 的 工作 区 中 ， 
这 时 可 以 双击 需要 修改 的 变量 ， 打 开 变 量 编辑 器 (如 图 6-1 所 示 )， 直 接 对 变量 的 内 容 进行 修 
改 ， 对 工作 区 中 MAT 文件 的 变量 数据 加 以 编辑 。 变 量 编辑 器 可 以 同时 打开 多 个 变量 ， 图 6-1 
中 就 同时 打开 了 变量 1 和 j。 当然 , 一般 很 少 手工 修改 MAT 变量 中 的 数据 , 而 是 通过 MATLAB 
的 命令 修改 工作 区 间 的 变量 ， 然 后 保存 工作 区 间 的 变量 到 MAT 文件 中 。 


Be 的 Wo we Sndow te 


负电 色 Nonerctin 本 os 了 | 下 by 





图 6-1 MATLAB 中 变量 编辑 器 


MATLAB 的 save 命令 可 以 将 MATLAB 系统 内 部 数据 保存 为 MAT 文件 ， 而 load 命令 可 
以 将 磁盘 上 的 MAT 文件 读 入 到 MATLAB 系统 中 。 除 此 之 外 ， 为 了 有 效 地 管理 MAT 文件 ， 
以 及 在 MATLAB 外 部 读 取 和 创建 MAT 文件 ，MAILAB 提供 了 一 个 子 程序 库 ， 可 以 在 C 或 
Fortran 程序 中 直接 调用 这 些 子 程序 来 创建 和 读 取 MAIT 文件 。 


6.2 ”操作 MAT 文件 


6.2.1 MAT 文件 格式 


MAT 数据 格式 是 MATLAB 数据 存储 的 标准 格式 。 与 常见 的 BMP 格式 的 图 像 文件 等 一 
样 ，MAT 文件 也 有 自己 的 存储 格式 。MAT 文件 由 128 字 节 的 MAT 文件 头 和 尾随 在 后 的 数据 
单元 组 成 ， 每 个 数据 单元 头 部 都 有 一 个 8 字 节 的 标志 ， 这 个 标志 表示 在 这 个 数据 单元 里 有 多 
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少数 扩 ， 以 及 以 什么 方式 读 / 写 数据 。 一 般 的 读 / 与 方式 有 16 位 数据 、32 位 数据 、 浮 点 或 别 的 
形式 。MAT 文件 的 结构 如 图 6.2 所 示 。 
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图 6-2 MAT 文件 格式 


从 图 6-2 中 可 以 看 出 ，MAT 文件 前 面 有 124 字 节 的 描述 信息 ， 它 们 都 是 可 恋 的 文本 信 
电 。 这 些 文件 信息 描述 了 MATLAB MAT 文件 的 创建 信息 和 数据 信息 。MAT 文件 头 饥 以 下 
信息 : 
MATLAB 版 本 ; 
sa MAT 文件 创建 的 平台 ， 
。 数据 和 文件 被 创建 的 时 间 ， 
在 Windews 系统 小 ， 疝 读 这 些 信息 的 方法 是 在 MATLAB 环境 中 使 用 type 命令 : 
> type my_Tmatfile.rnat 
在 Windows 系统 中 ， 显 示 的 信息 如 下 : 
MATLAB 5.0 MAT-fiie. Platform: PCWIN.Created on': Fri Aug 08 09:04;36 2003。 
它 表 明 MAT 文件 是 在 windows 壮 台 下 MATLAB 5.0 版 本 格式 的 MAT 文件 。 
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128 字 节 的 MAT 文件 头 后 面 的 4 字 节 是 MAT 文件 的 标志 域 ， 包 含 用 米 创 建 MAT 文件 
的 MATLAE 软件 的 版 本 等 信息 。 紧 跟着 MAT 文件 头 后 的 是 数据 单元 。 每 个 数据 单 苑 由 
字 节 的 标志 开始 ， 接 着 是 此 单 郊 中 的 数据 元 素 。8 字 节 的 标志 包含 两 部 分 信息 ， 数 撕 类 型 和 
字 节 数 。 数 据 类 型 也 就 是 单元 中 每 个 数据 的 人 小 和 格式 ，MAT 文件 支持 许多 种 格式 的 数据 ， 
其 中 包含 有 符号 的 和 无 符号 的 8 位、16 位 、32 位 利 姥 位 数据 ， 还 有 - 些 表 示 MATELAB 矩 
阵 的 特 萄 数据 类 型 . 字 节 数 是 一 个 32 位 的 整数 ， 表 示 数 据 单 元 里 有 多 少 字 节 ， 不 包含 数据 单 
元 井 始 的 8 字 节 标志 。 

详细 的 MAT 文件 格式 可 参加 MATLAB 随机 文档 或 从 MathWaorks 公司 下 载 。 


6.2.2 操作 MAT 文件 的 MATLAB API 


一 般 情况 下 ， 并 不 需要 了 解 MAT 文件 的 内 部 具体 格式 。 为 了 简化 在 MATLAB 环境 之 
外 对 MAT 文件 的 使 用 ，MATLAB 给 出 了 一 系列 MATLAB APi 来 完成 MAT 文件 的 恋 取 与 
存储 ， 而 MATLAB API 完全 屏蔽 了 MAT 文件 格式 。 当 然 ， 当 再 要 在 一 个 MATLAB APT 不 
支持 的 系统 中 读 / 写 MAT 文件 时 ， 用 户 必 须 了 解 MAT 文件 的 存 情 格式 ， 以 便 开 发 MATLABB 
MAT 文件 的 读 / 写 子 程序 。MATLAB AHIT 支持 MATELAB 可 以 运行 的 平台 ， 因 此 在 Windows 
系统 下 ， 完 全 可 以 运用 MATLAB API 来 完成 对 MAT 文件 的 读 / 写 ， 而 屏蔽 MAT 文件 的 内 部 
格式 .MathWrorks 强烈 建议 用 户 采 用 MAT 文件 API 来 该 /号 MAT 文件 ,而 不 是 妾 已 读 / 写 MAT 
文件 的 代码 ， 因 为 当 MATLAB 升级 时 ，MAT 版 本 改变 意 屿 着 用 户 必 须 重 写 读 / 写 MAT 文件 
的 代码 。 

因此 ， 先 了 解 一 下 与 读 / 写 MAT 文件 有 其 的 API， 在 Windows 系统 下 ， 与 MAT 文件 有 
关 的 文 付 有 需要 包含 的 头 文件 和 库 文 件 。 头 文件 主要 有 matrixh 和 math。 其 中 ，matrixh 包 
含 了 MATLAB 中 基本 的 数据 类 型 、 矩 阵 的 定义 和 操作 方法 ，math 包含 了 MAT 文件 的 创建 、 
读 / 写 函数 的 定义 。 库 文件 是 与 平台 有 头 的。 有 Windows 系统 二， 库 文件 有 libmat.lib 和 
libmx.Hib。 袁 6-1 列 出 了 有 关 MAT 文件 的 子 翌 录 。 
































表 6-1 MAT 文件 的 子 目 录 
日 冰 


inclmads 六 十 <NMTATLAR>wexternyinclude 








库 中 件 <MATL 点 BAbinywin32 


MAT1AB 所 隙 例 程 <MATLAB>extemexarmplssvwenE_mat 








6.22.1 mat.h 中 的 API 函数 


在 操作 MAT 文件 的 子 程序 库 中 ,它们 都 定义 在 matLh 中 。 头 文件 mat 中 定义 的 主要 函 
数 有 13 个 ， 其 函数 名 称 和 功能 指 述 见 表 6-2。 





表 6-2 math 中 定义 的 MAT 文件 头 





数 名 称 
matDOpen 


上 雪 能 揪 述 


























打开 MAT 广 件 
基 闭 MAT 文件 
取得 MAT 文件 的 变 基 列表 

从 MAT 立 件 小 皮 个 矩阵 释 基 











Iatclose 


ImatCetDir 
Tatktjiet 各 ITS 


* 日 们 





















续 表 









matPntArray 向 MAT 广 件 中 存 一 个 钙 阵 变量 

matDeleteArray 从 MAT 立 件 中 删除 -个 矩阵 迷城 

最 MATF 文件 中 的 C 诸 言 FLE 句柄 
内 RMAT 京 妖 中 职 下 个 红 阵 朗 旦 
向 MAT 立 件 中 存 一 个 外 阵 ， 全 得 当 用 lead 毅 念 普 这 村 MAT 谜 件 时 ， 该 矩 

但 允 庶 的 灾 虹 成 为 Bobal 变量 

访 耻 MAT 六 件 出 的 MATLAB 订 阵 头 信息 

读 取 MAT 文件 中 下 … 个 MATLAB 的 扰 器 头 信 息 





























IDatietFP 














IDatCTretMNeXtAArTay 














matPuntArray 点 SCilobal 
TatCEtAttayHEadeY 
TatOGetNextarTayHeader 


上 面 对 math 中 定义 的 MAT API 进行 详细 的 介绍 。 























1， matOpent ) 


功能 描述 : 打开 一 个 MAT 文件 。 
函数 原型 ，MATEFile *matOpen(const char *filename, const char #mode)。 
参数 说 明 : flename 为 一 个 指向 字符 串 的 指针 ， 包 含 了 希望 打开 的 MAT 文件 名 :; mode 


为 字符 指针 ， 用 来 说 明 打 开 文 件 的 模式 ， 有 以 下 几 种 取 值 ， 


已“Tr” 表 示 用 只 读 方 式 打开 文件 。 
轩 “w” 表 示 用 只 当 方式 打 井 文件 。 如 果 当 前 目录 不 存在 filename 指向 的 文件 ， 则 创建 








新 的 ， 如 果 存 在 全 ename 指向 的 文件 ， 则 会 覆盖 原来 的 文件 。 


人 寺 “u” 表 示 用 读 / 写 太 式 打开 文件 。 
全 “WwWw4” 表示 创建 一 个 MATLAB 4 了 版 本 的 MAT 文件 ， 
函数 打开 一 个 MAT 文件 用 于 读 / 写 ， 如 果 执 行 成 功 则 返回 MAT 文件 类 型 指针 ， 否 则 返 


回 空 指针 。 


2 InatClosel ) 

功能 描述 : 关闭 一 个 MAT 文件 。 

函 煞 原型 .int matClose(MATFile xmfp)。 

参数 说 明 ，mfp 为 指向 一 个 MAT 文件 的 MATFile 类 型 指针 。 如 果 函 数 执行 成 功 ， 返 回 


值 为 0， 否 则 返回 一 个 写 文件 错误 。 


3.，jnatDeleteVariablet ) 


功能 描述 ， 从 MAT 文件 中 珊 除 一 个 年 阵 。 
函数 原型 : int imatDeletewariable(MATFiie *mfp, const char ksname)。 
参数 说 明 :， mtfp 指向 一 个 MAT 文件 的 MATFile 类 型 指针 ，name 为 指向 一 个 希望 删除 的 


托 阵 名 的 字符 指针 。 如 果 函 数 执行 成 功 ， 返 国 值 为 0， 和 否则 返回 -个 非 零 值 。 





4 matGetDir ( ) 
功能 描述 :获得 MAT 文件 中 所 有 敌阵 的 目录 。 


= 必 ] 。 








阔 数 原型 : char *#+matGetDir(MATEite smfp, int snumy。 

参数 说 明 : imfp 指 癌 - -个 MAT 文件 的 MATFile 类 型 指针 ; num 为 文件 的 数 日 。 站 时 函 数 
执行 成 功 ， 将 返回 -个 字符 指针 数组 ， 煞 组 每 个 元 束 均 为 字符 指针 ， 指 向 的 字符 中 表示 MAT 
交 件 中 插 阵 的 日 录 。 如 果 冰 数 找 行 失败 ， 则 乒 回 参数 num 为 -1， 并 且 返 同一 个 空 指针 。 如 果 
num 为 0， 则 表示 MAT 交 件 中 没有 矩阵 . 

注意 : 该 函数 通过 mxCallec 分 配 内 存 ， 在 程序 结束 时 ， 收 须 使 用 通 数 mxFree 群 放 内 存 ， 
否则 会 导致 内 存 泄漏 。 


S，miatGretFp ) 





功能 描述 ， 寿 得 MAT 文件 的 C 谱 言 文 件 铝 柄 。 通 过 该 句 顶 ， 玫 户 可 以 方便 地 使 用 习 语 
言 的 库 函 数 feof 或 ferror 来 知 断 出 错 的 原因 。 

闻 数 原型 ，FILE *matGetFp(MATFile *mfp)。 

参数 说 明 ，mfp 为 指向 一 个 MAT 文件 的 MATFile 类 型 指针 


6.、matOGetMNextVartiableft ) 


功能 描述 :获得 MAT 文 任 中 下 “个 矩阵 的 数据 。 

函数 原型 ，mxArray *matOetNextvVariable(MATFile *mfp, const char +name)。 

参数 说 明 :， mfp 为 指向 一 个 MAT 文件 的 MATFile 类 型 指针 ; name 为 包含 mxArray 变 旦 
的 地 址 。 冰 数 和 返回 值 是 一 个 指向 新 分 号 的 mxarray 结构 的 指针 . 当 到 达 文 件 的 末尾 或 者 发 千 
错误 时 ， 返 回 秆 为 宝 ， 可 以 通过 标准 的 C 库 函 数 来 决定 错误 原因 .在 程序 结束 时 ， 必 须 使 用 
收 数 mxFree 释放 内 存 ， 备 则 会 导致 内 存 入 洗 。 

MATLAB S$.3 版 本 中 的 matGetNextArray ( ) 已 过 时 并 被 本 本数 代替 ,但 matGetNexArray( 1] 
函数 仍 可 以 使 用 。 








7T.，matGetNextVariableInfol ) 


功能 描述 :获取 MAT 文件 下 一 个 变量 的 信息 。 

锁 数 原型 : mxArray *matGetvVariableInfo(MATFile *mfp, const char *name)。 

参数 说 明 : mip 为 指向 下 一 个 MAT 文件 的 MATFile 类 型 指针 ,函数 读 取 mfp 指 同 的 MAT 
文件 的 下 一 个 矩阵 的 信息 并 返回 一 个 mxargay 类 型 的 损 针 .该 函数 必须 紧 接 在 matDpen 之 后 ， 
也 就 是 在 该 函数 与 matOpen 之 间 不 能 有 其 他 文件 操作 ， 天 则 该 函数 无 法 进行 定位 。 在 程序 结 
束 时 ， 需 要 将 该 函数 分 配 的 mxArray 结构 体 删除 ， 天 则 会 导 委 内 存 泄 涌 。 如 果 刘 达 文件 的 结 
尾 或 者 图 数 执 行销 误 ， 则 返回 值 为 0， 

MATLAB 53 版 本 中 的 matGetNextArrayHeader () 己 过 时 并 被 本 妆 数 代 苦 ， 但 matGetNex 
ArrayHeader( ) 函 数 仍 可 以 使 用 。 








8S，IatGetVariablet ) 


功能 撒 述 ， 从 MAT 文件 中 获取 一 个 矩阵 变量 ， 

函数 原型 ， mxArray *matGetVariable(MATFile *mftp, const char *name)。 

参数 说 明 :，mfp 为 指向 一 个 MAT 文件 的 MATEFile 类 型 指针 ，name 为 指 疝 个 希望 获得 
的 矩阵 名 的 字符 指针 。 如 果 孙 数 执行 成 功 ， 函 数 将 创建 一 个 mxArray 结构 体 对 象 ， 并 将 获得 
.92 。 








的 矩阵 煞 据 捞 贝 到 新 分 配 的 mxArray 结构 体 对 象 中 ， 返 回 指向 该 对 象 的 指针 ， 和 否则 返回 为 
NULL。 在 程序 结束 之 前 必须 将 函数 产生 的 mxArray 结构 体 对 象 删除 。 


9，matGetVariableInfof ) 


功能 描述 ， 从 指定 的 MAT 文件 由 ! 读 取 指 定名 称 的 变量 的 头 信 息 。 

琢 数 原型 ，mxAiray *matGetVariableInfo(MATFile *mfp, const char *name)。 

参数 说 明 : mtfp 为 指向 一 个 MAT 文件 的 MATEFile 类 型 指针 ，name 为 mxAmay 类 齐 的 变 
晤 名 。 它 只 获得 矩阵 的 头 信 息 ， 这 些 信 息 是 除了 托 阵 的 于 、 开 .这 和 jc 外 的 所 有 信息 。 宙 要 
注意 的 是 ， 这 里 读 取 的 入 息 是 只 访 的 ， 不 能 回 写 或 保存 到 MAT 文件 中 。 如 果 函 叛 执 行 成 功 ， 
那 冬 在 返回 的 mxArray 结构 伍 中 ，pr、i、if 和 je 均 被 设置 为 -1 。 




















10，matPutVariablel ) 


功能 描述 :将 算 阵 变量 内 容 写 入 MIAT 文件 中 。 

函数 原型 ，int matPutVariable(MATFile *mfp, comst char *marme, const mxArray *mb)。 

参数 说 明 ; mfp 为 指向 一 个 MAT 文件 的 MATFile 类 型 指针 ;name 为 mxArray 类 型 的 变 
量 名 。 此 妾 数 研 以 将 一 个 mp 指向 的 mxArray 结构 体 写 入 到 mfp 所 指向 的 MAIT 文件 由。 如 
果 文 件 中 存在 问 名 的 mxArray 结构 体 ， 那 么 将 履 盖 原来 的 值 ; 如 果 存 在 同名 的 mxArray 结构 
体 ， 那 么 将 此 结 克 体 浴 加 到 文件 的 末尾 。 

MATFLAB 53 版 本 中 的 matPutArray( ) 已 过 时 并 被 本 函数 代替 ， 但 matPutArray { ) 明 数 仍 
可 以 使 用 。 


11，matPutVariableAsGlobal( ) 


功能 描述 ， 将 矩阵 的 内 容 写 入 到 MAT 文件 中 。 

尔 数 原型 ，int matPutVariabteAsGlobal(MATFile *mfp，const char #name，const ImXATTay 
尝 DmD)。 

参数 说 明 : mfp 为 指向 一 个 MAT 文件 的 MATFite 类 型 指针 ，mp 为 一 个 指 癌 mxArray 结 
构 体 的 指针 。 这 个 函数 可 以 将 一 个 mp 指向 的 mxArray 结构 体 写 到 mfp 所 指向 的 MAT 文件 
中 。 如 果 文 件 中 已 存在 同名 的 mxArray 结构 体 ， 那 么 将 米 盖 原 米 的 值 ， 如 果 不 存 竺 同名 的 
mxArray 结构 体 ， 那 么 将 此 结构 添加 到 文件 的 末尾 。 函 数 执行 成 功 返回 0， 否则 返 所 一 个 非 
零 值 。 

此 函数 与 matPutVariable 功能 类 似 ， 唯 一 的 区 别 在 十 读 取 拖 阵 时 。MAILAB 芷 读 取 用 
matPutvariableAsGlobal 存放 的 矩阵 时 ， 会 将 矩阵 放 到 MATLAB 的 全 局 工作 空间 ， 枫 
matPutvariable 无 此 功能 。 

以 前 版 本 中 的 matPutaArrayAsGiebalf ) 已 过 时 并 被 本 末 数 代 符 ,但 matPutArrayAsGlobal( ) 
图 数 仍 可 以 使 用 。 





上 .2.2.2 mmatrix.n 中 的 API 


mxAray 类 型 以 及 大 量 的 以 mx 为 前 缀 的 菌 数 都 定义 于 matrixh 中 。 数 据 结构 mxArray 
是 一 种 很 复杂 的 数据 结构 ， 与 MATLAB 中 的 atray 对 应 。 因 此 ， 在 单独 使 用 mxArray 及 衫 关 


= 号 了 。 





通 数 的 代码 中 ， 应 该 包含 头 文件 matrixh。 
F 面 介绍 一 些 党 


1， 创建 和 清除 数组 


MATLAB 有 多 种 变 关 类 型 ， 对 应 于 每 种 类 型 ， 基 本 上 都 有 一 全 冰 数 用 于 创建 





见 的 函数 ， 它 们 与 所 阵 类 型 mxArray 近 作 密切 相关 。 


它 ， 不 过 它 


拥有 相同 的 数据 结构 ， 即 mxArray。 该 数据 结构 很 复杂 ， 其 中 包含 了 数 纽 的 芙 型 ， 也 包含 了 


宝 际 的 数据 。 





数组 的 建立 一 般 采 用 mxCreateXXXI 形式 的 函数 。 例 划 , 新建 一 个 二 维 的 double 淆 型 的 
数组 ， 应 该 用 函 数 mxCreateDonbleMatrix， 其 函数 原型 如 下 : 


mmXACEay mxXCreateDoubleMatrixint my int n InXComplexity 也 3ag]- 





其 中 ,mm 和 mm 为 敌阵 的 行 数 和 列 数 。 
数 ， 这 两 个 常数 分 别 为 mxREAL 和 mxCOMPLEX。 
奖 似 前 mxCreateXXXT ) 轩 数 抑 表 6-3， 


参数 flag 为 营 数 ， 月 





日 于 区 别 定 阵 中 的 数 执 是 实数 偿 足 复 


它们 都 同 于 创建 不 同类 型 数据 的 矩阵 ， 


表 6-3 和 矩阵 创建 函数 mxCreateXXXI ) 








于 数 








肋 能 描述 





TIXCIEaIELOEiCalArTray 











几 指 定 的 划 便 建 “个 时 辑 


InXCYESIELOBicalScalar 








TmXCTreateLogicalkwatrix 


创建 … 个 呈 姑 的 逻辑 mxArray 类 型 的 拖 隆 ， 


创建 个 二 名 的 还 辑 mxArmray 具 型 的 旗 踊 ， 












着 初始 化 所 有 元 素 为 由 se 









标量 
和 并 初始 化 所 有 元 素 为 falge 








创建 一 个 双 精 度 的 阵列 ， 


mxCreateDoubleScalar 








所 有 的 元素 用 指定 的 倡 训 冶 化 


























































ImxCreateSparse 创建 一 个 二 维 的 稀 眠 矩阵 
mxCreateSparseLogicalMatrix 创建 -个 一 维 的 稀 琉 轴 辑 让 到 
mxCreatecStingFromNChars 用 指定 的 字符 中 创建 “个 玉 站 的 字符 串 阵 证 
TIXCreateString 按 指 定 的 字符 则 创建 一 个 字符 中 阵列 
EXCHCateCharAA 订 ay 创建 “个 字符 阵列 ， 并 用 指定 的 字符 初始 化 









接 字 符 串 的 上 内容 创建 一 个 
创建 一 个 二 维 的 空 阵 到 ， 





TIKCTeateCharvfatrixFromStrings 








mxCreateCelkiatrix 








字符 矩 睡 
每 个 元 素 部 为 NULL 



























创建 一 个 N 维 的 空 笠 列 ， 
用 指定 的 字段 创建 一 个 一 


ITXCTeatE 人 扣 上 六 TRY 














每 个 元 素 者 为 NULEL 
- 维 的 结 榴 体 上 隆 列 ， 所 有 的 和 值 都 初始 化 为 NUELL 














tmXCteateStructklatrix 
mxCreateStructaArray 





用 指定 的 字段 创建 “个 友 





锥 的 结构 体 孟 列 ， 所 有 的 值 都 初始 化 为 NULL 


用 mxDestroyArrayf ) 国 数 从 内 存 中 删除 一 个 数组 ， 函 数 原 型 如 下 


void mxXDestroyAAITay(nxATIay *array_PpiT) 


2， 管 理 数 组 的 维 数 


获取 数组 每 一 维 上 元 素 的 个 数 , 可 以 用 mxGetM ( ) 和 mxGetN ( ) 困 数 . 其 中 , mxGetM () 





获得 数组 第 一 维 的 元 素 个 数 。 对 于 扼 阵 来 说 ， 
int inxGetvitconst mIXArTay *aTray_Ptr) 
获得 其 他 维 的 元 素 个 数 ， 可 以 用 函数 mxGetN ( 


int rXGetNIconst HIXAITay #dITaY_Pir) 


0Dd4。 


也 就 是 行 数 。 其 珊 数 声明 如 下 : 


)， 畏 数 声 明 如 下 : 








对 于 矩阵 来 说 ， 该 卫 数 返回 的 是 扼 阵 的 列 数 。 对 于 多 维 数组 来 说 ， 它 返回 的 是 从 第 2 维 
到 最 后 “ 维 的 各 维 元 素 的 溢 积 。 

如 果 要 得 到 其 -特定 维 的 元 素 的 个 数 ， 则 要 使 用 mxGetDimensions( ) 函 数 。 它 的 孙 数 声 
明 如 下 : 

const int txXCGetDimensionsfconst nx 点 rray *#8TT8Y7_DPtir) 

各 维 的 元 素 个 数 将 保存 在 一 个 int 数组 中 返回 .对 于 最 常用 的 拖 阵 来 说 , 只 要 用 mxGtMI ) 
和 mxGetNI ) 两 个 函数 就 中 网 了 。 

另外 ， 还 可 以 通过 mxGetNumberDfDimensionsf ) 忒 得 数组 的 总 维 数 。 

设置 矩阵 的 行 数 和 列 数 ,需要 使 用 mxSetM( ) 和 mxSetN( ) 两 个 函数 。 它们 的 原型 分 别 为 ; 


EXteIT VOigd IIXSetMmxArTay +pa int mn ) 





extemn void PERKSetN{ImX 和 ITay *Ppau int ID 
3、 判 断 数组 类 型 


在 对 mxArray 类 型 的 变 关 进行 操作 之 前 ， 可 以 验证 一 下 其 中 数组 的 数据 类 型 ， 比 如 是 否 
为 double 数组 、 整 数 、 字 符 串 、 逻辑 值 等 ， 以 及 是 否 为 某 种 结构 、 类 ， 或 者 是 某 种 特殊 类 型 ， 
比 九 是否 为 空 数组 ， 是 否 为 IIF、NaN 等 。 常 见 的 判断 阔 数 有 ， 

exXteTn bool TixTSCharfcornst IX 和 ITay 站 3 
exteTr bool TnxfisStructfconst InXATTay *pa) 
extern bool imxIsLogicalfconst mxArTray *bpa) 
exteIn bool mxIsCellfconst DCATray *pa) 
exteimm bool mxISNuImeric(Ceonst rrXATTay #pa) 
extermn bool mxEsComplex(const mX 生 Tray *Pa) 
exteIn bool mnxl1sSparsefeconst TIXATray *Ppa) 
exteIQ bool IESDoublefcotast tnX 和 Ttay *Pa] 
extern bool mxXISSinglefconst InXATTay *Pa) 
exterrn beol ImXIsImntSfeonst mxAarTay #pa) 
extern Pool ImxIsUintgfeernst mmXATTaY Yay 
extern bool mxisUintl6(const rnxArray *pay 
extetn bool mxlstint32(const HIXATTHY *Ph) 
extern bool mxJsUint32(const mxXArray *pa) 
extermn bool InxIsInt64(const trK 各 Tray *Ppal 
extetn bool rnxJsUint64{const InX 上 rray *pa) 
extetrmm bool mxlsEmpty( Sonst ImXATTay “Pal 
&xtern bool mxIsInffdoubleXy》 


exXtern bool ImxJsNuN(deoublex) 
对 于 每 个 函数 的 功能 ， 不 再 详细 说 明 ， 从 毅 数 的 原型 就 很 容易 看 到 。 
4， 管理 数组 的 数据 


对 于 常用 的 double 类 型 的 数组 , 可 以 用 mxGetPr( ) 和 mxGetPi( ) 两 个 函数 分 别 获得 其 实 
部 和 虚 部 的 数据 指针 。 这 两 个 函数 的 声明 如 下 | 


= 遇 二 。 


extern void mxSetPr( 
mxArray *pa， 岩 pointer to array / 
double  *#Ppr 大 real data array pointer #/ 
上 
extern double * mxGetPi( 
const mXArray *#pa /# pointer to array #/ 
); 


这 样 就 可 以 通过 获得 的 指针 对 mxArray 类 型 数组 中 的 数据 进行 读 / 写 操作 。 例如 可 以 用 函 
数 MAT API 函数 matGetArray( ) 从 MAT 文件 中 读 入 mxArray 类 型 的 数组 , 然后 用 mxGetPr( ) 
和 mxGetPi( ) 获 得 数据 指针 ， 并 对 其 中 的 数据 进行 处 理 ， 最 后 调用 函数 将 修改 后 的 数据 存 入 
MAT 文件 中 。 

限于 篇 幅 ,， 本 书 只 介绍 了 一 些 常 用 的 mx 函数 。 感 兴趣 的 读者 可 以 参考 MATLAB 应 用 程 
序 接口 手册 。 


6.3 ”Visual C++ 调用 MAT 时 的 环境 设置 


为 了 使 用 MATLAB API 来 操作 MAT 文件 ， 必 须 进 行 必要 的 环境 设置 。 与 操作 MAT 数 
据 文 件 有 关 的 头 文件 主要 有 matrix.h 和 math。 其 中 ，matrix.h 包含 了 MATLAB 中 基本 的 数 
据 类 型 、 和 矩阵 的 定义 和 操作 方法 ，mat.h 包含 了 MAT 文件 的 创建 、 读 / 写 等 函数 的 定义 。 库 文 
件 是 与 平台 有 关 的 。 在 Windows 系统 下 ， 库 文件 有 libmatlib 和 libmx.lib。 具 体 的 设置 步 又 
如 下 : 

(1) 添加 头 文 件 和 库 文件 路 径 。 在 Tools 中 选择 Options， 出 现 如 图 6-3 所 示 的 对 话 框 ， 
选择 Directories 选项 卡 。 在 Show directories for 中 选取 Include files ， 输 入 
C:AMATLAB6PS\EXTERNNNCLUDE ， 选 取 Library files， 输 入 CNMAILAB6PS\EXTERN 
\LIB\WIN32NMICROSOEFTWMSVisual C++00 。 

(2) 在 “Project->Setting” 菜 单 中 选取 Link 选项 卡 ， 在 ObjecUlibrary modules 中 输入 
libmat.lib 和 libmx.lib《〈 中 间 以 空格 隔 开 )， 如 图 6-4 所 示 。 


[TREE 
Editor | Tabs | Debug | compatibilty | Builid 。 Directories | worksl 


[wina3z 了] [maoude f 仙 es 了 
Directories: 这 X 信 多 


CYProqram Files\Microsoft Visual StudioVVC98VWNCLUDE 
CrFrogram FilesVMicrosoft Visual Ne 





图 6-3 MATLAB 的 MAT API 环境 设置 添加 头 文件 路 径 


* 90。 


(3) 通过 MAT 文件 实现 MATLAB 和 Visual C++ 数据 共享 的 思路 是 将 计算 量 大 的 操作 交 
由 MATILAB 处 理 ， 将 结果 保存 在 MAT 文件 中 ， 然 后 在 Visual C++ 工程 中 读 取 MAT 数据 。 
这 样 做 的 意义 是 : 把 计算 过 程 留 给 MATLAB ， 而 C++ 对 计算 结果 进行 分 析 或 者 可 视 化 处 理 ， 
即 通过 MAT 数据 文件 共享 以 利用 MATLAB 强大 的 数据 计算 和 处 理 能 力 。 


阳 革 







General | Debug | cicr+ Link | Resources | Bl 
Category: |General 了 ] Beset | 
Dutput fle name: 

[pebugwarTestexe 

Objeculibrary modules: 

Jezm uuid.lib odbc32.lib odbccp32.lib [TI 
F Generate debug inio 厂 lgnore all default libraries 

冯 Link jncrementally 厂 Generate mapfile 













Sentings For |Wwin32 Debug 昌 






kernel32.lib user32.lib gdi32.lib winspool.lib 
comdlg32.lib advapi32.lib shell32.lib ole32.lib 
oleaut32.lib uuid.lib odbc32.lib odbccp32.lib 


图 6-4 MATLAB 的 MAT API 环境 添加 库 文件 


6.4 实 例 


F 面 通过 两 个 具体 的 实例 来 曾 述 MAT 文件 的 使 用 ， 一 个 说 明 MAT 文件 如 何 创建 ， 以 及 
在 MATLAB 系统 中 如 何 查看 , 另 一 个 说 明 在 Visual C++ 中 如 何 读 取 已 有 的 MAT 文件 并 显示 。 

【 例 6-1 在 Visual C++ 环境 中 通过 MAT API 创建 一 个 能 够 被 导入 到 MATLAB 系统 的 MAT 
文件 。 以 CNMATLAB6pS\extern\ examples\eng_mat 自 带 的 matcreate.c 为 基础 建立 工程 ,其 目的 
是 验证 MAT API 中 几 个 函数 ， 如 matClose( )、matOpen( )、matGetVariable( )、matPutVariable( ) 
等 的 使 用 。 具 体 包含 以 下 步骤 : 

(1) 在 Visual C++ 中 创建 新 工程 , 选择 Win32 Console Application， 工 程 名 为 "MatCreateTest ”。 
在 Step 1 of 1 选择 An empty project， 其 余 选项 均 采用 默认 设置 。 

(2) 将 位 于 CNMATLAB6pS\extern\ examplesveng_mat 目录 下 的 matcreat.c 复制 到 当前 工 
程 目 录 中 ， 并 通过 Project 菜单 中 的 Add to project， 添 加 matcreat.c 到 当前 工程 中 。 

(3) 按 1.3 节 Visual C++ 调用 MAT 时 环境 设置 的 两 个 步 又， 添加 头 文件 路 径 和 库 文 件 到 
当前 工程 中 。 

(4) 编译 和 运行 工程 。 

以 下 列 出 了 matcreate.c 的 全 部 代码 ， 中 文 注 释 部 分 为 手工 添加 。 

/本 


*+ MAT-file creation program 


*# Copyright 1986-2000 The MathWorks, Inc. 
束 / 

/ 洗 $Revision: 1.13 $ #/ 

扣 nclude <stdio.h> 


se。 DO7T。 








六 RElude <string,h> 六 Hor seinmg[ 47 
扯 nelude <stqlib,b> 产 Feor EXIT_ 和 ALLURE. EXIT SUCCESS :7 


#inclaude "math'" AMAT 文 件 APIT 的 头 艾 件 ， 必 须 添加 
#dcefine BUFSIZRE 256 


int rnaanl 》 


| 
MATFile *pmat;， 1 定 六 指向 WMAT 文件 的 指针 


# 定 义 一 些 常量 和 变量 

TOX 凡 IT9Y 交 31 ypa2,Ypa3; 

xlouble dataf9] = 1.0,. 4.0. 7.0. 2.0,，5.0. 8.0. 3.0, 6.0. 呈 .01 
Const char #+file = ”triattest mat 

char str[BUFSTZE]; 


int status: 


/有 [ 开 一 个 MAT 误 件 ， 如 果 不 存在 则 创建 一 个 新 MAT 文件 ， 并 检查 运 品 士 
# 如 果 打 开 失 败 ， 则 返回 
Frintft “Creating 下 le 总 Snn 于 le 
Prmat = ImnatOpenTile， 
让 fprnat == NULLI) 
Erintft "Error creating file 免 sw fileji 
printff (Do you have Write Permission in thig directoIy ?An 
TeturnfEXIT_FAILURE); 





1 创建 一 个 各 为 pal 的 阵 ， 如 果 创 建 失败 贴近 回 
pal = mxCreateDoubleMatrixf3,3,ImXREATL); 
ffpal == NULIL) 


{ 
printtf "名 5 :Out of memory on line dn"， FILR ， LINE_ 7》; 
Printtf "Unable to create mmXATTay An) 
retUmIEXHT_FAILURRE); 

] 


1 创建 -- 仿 名 为 pa2 的 矩阵 ， 如 果 创 建 失 败 则 返回 
Pa2 = tmxCreateDoubleMatrix(3,3,m0XRE 和 AL 
让 人 pa2a 一 NULIL) 





Printtf 务 S : DOnit of memory on line 多 qu， FILE ， LINE_ 
pant( "Unabje te create mxXArrayAn"); 
Fetura(EXIT FAILURE7?: 

1 制 始 化 窍 阵 pa2 


memcpy(Cvaod *)JfTXGetPrlpa2)]，《void +)data sizeoffdatay; 





4 创建 一 个 字符 串 类 型 的 年 阵 ， 如 果 创 建 失败 则 返 
pa3 = mxXCTreateStringt MATLAB:the ]anguage of technical Corputing"); 
这 (pa3 == NULILJ 

{ 


加 | 





Trintff"958 :Outeof merory or line 免 qun"， FILEP ， LINE ); 
printtf Unabje to create String TIXAITaYy.An 
retuTD( 卫 基 IT_FAILURE)， 





站 向 MAT 文件 巾 写 入 变量 pal， 并 命名 为 LocalDoubje 
status = matPutvariabletpmat "Localouble "Paly》; 





话 (statns != 丘 ) 

{ 
Printff 各 5 :Error using rmatPutwariable or line 3pdn'"， FILE ， LINE 
returnfEXIT_ FAILURE); 





# 疝 MAT 区 件 中 写 入 pa2, 并 命名 为 GlobalPouble， 它 是 一 个 全 局 变节 
status = TIatPutVanableAsGlobalptmat，OlobalDonble ”ba2): 
证 (Status 二 押 

Printf "Errorusing matPutVariableAsGlobaln ); 

Teturn(EXIT ATILUREY 


# 疝 MAT 误 件 中 写 入 变量 pa3, 于 命名 为 LocalSting 

stanls = InatPutwariapble(pmat “LocalStrin 名 "Pa3)， 

让 fstatus != 中 
Printff" 交 5 Error using ImatPutVariable on ljine 和 dm FILE ， LINE 
return(EXJTT FAILORE)， 


/本 
a 业已 











9? oopsl we need to copy data before writing Ihe array.， 【Well， 
本 OK, ihis 区 as egly inIenaonaly This defnonstrates 引 寺 


和 TMPULWatiabte ww 让 人 werwtite an XiStimE aay 记 3a MAIT-Hie. 
半 


# 初 媳 化 变 交 pal 

memepytvnid *XIDXCetPrtpal 六 (void *)data， Sizet[fclatay); 
4 疝 MAT 文件 中 写 入 变量 pal， 并 辣 名 为 LocalPoubis 
status = maatPutVariabietpmat “LocaiDeouble Paly)， 

让 (status != 利 ) 





pmantfl 有 3 :Emor Using TatPutwariable on line 名 dm ，_ FILE_ ,LINE 
returmEXIT FAILUREY》， 
] 
天 消除 审 阵 对 
mLXDEestroy 六 ITaY(Dal73 
inXDestroy 上 页 Trayfpa2)i 
mxDestroy ATray[Pa37): 
下 关闭 MAT 广 件 ， 如 果 出 钳 则 返 门 
让 (matClesefpmat) := DO 
{ 
Printff Error elosing file 和 Sm file》 
tetarmtEXIT_FATLUREY: 
} 
4 
* 重新 打开 MAT 文件 ， 并 验证 文件 的 内 容 。 如 果 打 开 失 败 则 逝世 
下 


pmat = matODpPecntH]e， IT 

fpmat == NULL+ 
Printff Error Treopening fie 综 sSWn ,有 1e7 
retuiEXIT_FAIHURE7 


首 
* 读 取 变量 LocalDouble 
S 
pal = malGetVariable(pmat， “Tocalbpouble 小 
让 (pal == NULL) 
。]100 。 





Printf( "Error reading existing rmatrix LocalDoublewn" 
TetUrmIE 其 TT_ENAILURER); 

} 

4 验证 变量 的 总 维 数 

计 ({mxGetumberOfDimensionsfpal) != 2) 

{ 
Printt( ETTOor Saving matrix: resull does not have two 由 mensionsA ) 
retuinfEXIT_ FAILURE): 


1# 读 最 变量 GlobalDouble， 妍 果 拓 败 则 返 画 
Da = Inat(tetwariablefpmat  "Glob3aiDouble”); 
让 人 pa2 == NULL) 
| 
Printf "Error readinpg existing rmatrix GlobalDoublew 5 
TetumIEX IT FAILURET; 





1 验证 pa2 下 否 理 MATLAB 的 个 局 工作 空间 得 到 

让 TIfmxJsFromGlobalWSIPa2y 7 
Printff "Errer Saving global muatrix: result is not globaln ); 
TetUmIERIT_ RATILUREY， 


f# 读 取 变 莉 LocalString 

Pa3 = matGetVariable(pmat， "Localstrjng 

下 (pas = NULL) 

{ 
ErindfEIoriEaging existing matix LOoc 人 StUinEAD ); 
retufn(EXIT_FAILURE); 


1 生成 字符 出 

status = inxGetStringfPpa3，str， 5SjzeoflStr3 

iffstatns != 上 

{ 
Printtf "Not enough space. String is trunecateq，J 
TetumIEXIT FAHURE》， 


ea ] 门 1 * 


// 验 证 字符 的 内 容 是 否 相符 
让 (strcmp(str, "MATLAB: the language of technical computing")) 
printf("Error Saving string: result has incorrect contents\n"); 


return(EXIT_FAILURE): 


上 # 退出 前 必须 杰 放 变量 的 内 存折 
mxDestroyArray(pal ); 
mxDestroyArray(pa2); 


mxDestroyArray(pa3); 


/关闭 MAT 文件 
if(matClose(pmat) != 0) 
{ 
printf("Error closing file 95s\n " ,file); 


returm(EXIT_FAILUREJ); 


printf("Done\n”); 
return(EXIT_SUCCESS); 
} 


编译 后 运行 ， 运 行 界 面 如 图 6-5 所 示 。 在 当前 工程 目录 下 可 以 发 现 ， 当 前 工程 中 生成 了 
-个 MAT 文件 mattest.mat 


Done 


Pre 





图 6-5 例 6-1 运行 界面 


F 面 验证 mattestmat 在 MATLAB 系统 中 是 否 可 以 打开 ， 以 及 其 中 变量 的 值 正 确 与 妊 
启动 MATLAB ， 单 击 Workspace 中 的 Load data file， 找 到 位 于 当前 工程 目录 下 的 mattest.mat 
文件 。 在 Workspace 中 可 以 看 到 三 个 变量 ， 也 可 以 在 MATLAB 提示 符 下 输入 whos， 以 碍 看 
MAILAB 工作 区 间 的 变量 

>> Whos 


Name Si1Ze Bytes Class 


。 102。 


GlobalDouble 3x3 
LocalDouble 3x3 


72 double array 
72 double array 


LocalString 1x43 86 ”char array 


Grand total is 61 elements using 230 bytes 


可 见 在 MAT 文件 中 生成 了 三 个 变量 GlobalDouble、LocalDouble 和 LocalString。 双 击 工 
作 区 间 中 的 GlobalDouble 变量 ， 弹 出 如 图 6-6 所 示 的 变量 编辑 窗口 。 


Array Editor: GlobalDouble 


Ble Et Yew Web Window Hep 


扩 全 友 | Numeric format [shonc =] | et 呈 





图 6-6 MATLAB 环境 的 变量 编辑 窗口 


【 例 6-2】 在 Visual C++ 环境 中 通过 MAT API 读 取 例 6-1 生成 的 MAT 文件 。 以 
C:NMATILAB6pS\vextern\ examples\eng_mat 自 带 的 matdgns.c 为 基础 建立 工程 ， 其 目的 是 验证 
MAT API 中 matClose( )、matOpen( )、matGetNextVariable( )、matGetNextVariableInfo( ) 等 函 
数 的 使 用 。 有 具体 包含 以 下 步骤 ; 

(1) 在 Visual C++ 中 创建 新 工程 ， 选 择 Win32 Console Application， 工 程 名 为 MatReadTest。 
在 Step 1 of 1 中 选择 An empty project， 其 余 选 项 均 采 用 默认 设置 。 

(2) 将 位 于 C:NMATLAB6pSvextern\ examples\veng_mat 目录 下 的 matdgns.c 复制 到 当前 工 
程 目 录 中 ， 并 通过 Project 菜单 中 的 Add to project， 选 择 File 添加 matdgns.c 到 当前 工程 中 。 

(3) 按 1.3 节 Visual C++ 调用 MAT 时 环境 设置 的 两 个 步骤 ,添加 头 文件 路 径 和 库 文件 到 
当前 工程 中 。 

(4) 编译 和 运行 工程 。 

为 方便 程序 运行 ， 对 matdgns.c 中 的 main( ) 函 数 进行 了 小 的 修改 。 以 下 列 出 了 修改 后 的 
matdgns.c 的 全 部 代码 ， 中 文 注 释 部 分 为 手工 添加 。 

Wmatdgns.c 

折 nclude <stdio.h> 

提 nclude <stdlib.h> 

打 nclude "math" WMAT API 的 头 文件 


int diagnose(const char *#file) 
{ 

MATFile *pmat; 

char 。 半 dir; 


const char *name; 


siLO3Se 





int Pdir， 
int 于 
TUXATITaYy 半 Dai; 


Drintff "了 Reading 站 le 各 5..AnW" Tile 


j 林 开 MAT 文件 
pmat = tmnatOpentEle， Ti; 
让 (pmat == NULI) 
f 
printft Error Opening 五 le 铬 Sm ,有 1e)， 


retarmf]y]; 


4 得 到 当前 MAT 文件 的 变量 目录 并 显示 
dir = matGerDirprmat, 上 ndir; 
tdr== NULL) 
{ 
printtf "Erreor reading 让 rectory of le 和 sum, file): 


TetUrru ] 


1se 


Prnti( Directory of 多 Sn file)， 
for (= 有 ;1 < ndir i++) 
Printif ”各 sw dir[i]y; 


mxFreetdiry; 


下 (matClosefpmar ! 一 DO 
{ 
brintff "Error closing Hle 多 sn'" ,file); 


tetutmi]); 


/重新 打开 MAT 文件 
penat = TatOpentfile， Ti 
EIpmat == NULL》 
{ 
printtf 了 rror reopening file 驼 SW ,用 le]; 
Teturmil); 
*。 104 。 


# 获 取 每 个 变量 的 变量 头 信息 
Printft AnExarnining 由 PheEader for each Yariable:n”"); 
for 人 站 =0: 1 < Dair; i++ 十 ) 
人 
pa = matCiceHextyYariableIDntotpnmatb 区 name); 
让 (pa == NULI) 
{ 
PrinttC Biror reading im 区 e 各 st fnDe) 
IEtrtt 1] 


】 


/分 析 变 量 头 ， 蓝 得 矩阵 的 维 数 
Printft "和 ccorqjng to its header, arTay 狗 s has 和 ddirnensionsn ， 
name, TIXCGOetNumberDfDimensionsfPpah)， 
1 分 析 变 量 是 理 存 在 于 MATLAB 的 企 局 工作 区 亲 
让 (mxJsFromGlobalWwS 人 的) 
printff” and was a global variable when SavedAn 分 
已 1se 
PrintK” and was a local variable when savedmn 


inXDestroy 上 ITTayfpa); 


#W 打开 后 重新 关闭 MAT 文件 

让 (marcClosetpraaty != 0 

{ 
printff "Error closin 占 有 ile 镶 sSwn 1e 
return(T); 


pmat = IatDpentIe， 
于 (prmat == NULL) 
{ 
Frinttf "Error Teopening le oSn  ile); 


IEtutrnf1); 


# 通 过 matGetNextvVariable 获得 矩阵 变量 的 值 
Printff"wnReading in 也 e actnal atray Contents:An 邹 
foTfi=bi ic<adir; i 寺 +) 


[ 


”105“， 





Pa = mtatkjetMNextVariableftpmat, 此 narme]; 
(pa == NULLI 
Ptintff "Error 吃 ading 识 他 ie 各 sw， 让 1e 
Fetuml); 


} 


4 分 析 和 矩阵 数 据 ， 判 断 矩 阵 的 维 数 以 及 变 量 类 型 


brintff 和 Ceording to its contents array 各 s has 吕 d dimetnsionswn ， 





name, mxXOGetNumberDftDimensionsf(pal; 


计 (mxIsFromGlobalW Stpay 
Printft” and Was a global variable 史 hen sayedn 人 
加 


printtf” and Was a local Variabje 到 hen SavedAn 


TIXDestroy 上 ITray(Pal: 
} 


让 fmatC]osetprnat] != 0D) 


{ 
Printftf "Error Closing file 名 Sw le); 


Teturnfty》; 


Frintt( Denesn 》; 


Teta DO); 


int rmainfint argce. char **$STgY)》 


{ 
int result; 


# 假 设 要 打开 的 MAT 文件 名 为 mattestmat， 并 已 在 当前 工作 区 蕊 录 中 
Cortst char+ 人 le= mattest,Iat 


restt=diagnosefiley》; 


return fresult==0O)7EXIT _ SUCCESS:IEX1T_FAILURE; 


] 
编译 后 运行 , 运行 结果 如 图 67 所 示 , 发 现 mattest,mat 中 包含 GlobalDouble， LocalString 
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和 LocalDouble 三 个 变量 . 其 中 , GlobalDouble 为 MATLAB 工作 区 中 的 全 局 变量 , LocalString 
和 LocalDouble 为 局 部 变量 。 分 析 结 果 与 例 6-1 完全 一 臻 


c "F:\MatReadTest\Debug\VMatReadTesEtERE 





图 6-7 ”运行 结果 
十 
0.4 小 和 
本 节 详 细 介 绍 了 通过 MATLAB 自 带 的 MAT API 在 Visual C++ 创建 工程 和 读 取 MAT 文 
件 的 方法 。 由 于 MAT API 完全 屏 项 了 MAT 文件 格式 的 细节 ， 在 Visual C++ 中 读 取 和 创建 


MAT 文件 变 得 相当 简单 。 通 过 MAT 文件 共享 ， 可 以 利用 MATLAB 强大 的 数值 计算 和 图 像 
显示 处 理 能 力 。 因 此 ，MAT 数据 文件 的 共享 提供 了 一 种 简单 有 效 的 混合 编程 方法 ， 
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第 7 章 利用 Mideva 实现 混合 编程 


7.1 Mideva 简介 


Mideva 是 MathTools 推出 的 一 种 MATLAB 编译 开发 软件 平台 , 提供 对 MATLAR 程序 文 
件 5M 文件 ) 的 解释 执行 和 开发 环境 支持 ， 它 集 编 辑 、 调 试 、 编 译 和 优化 于 一 体 。 访 软件 有 
为 Borland C++、Visual C++ 和 Visual Basic 等 编程 语言 开发 的 不 同 版 本 ， 目 前 其 版 本 已 经 划 
了 4.5 了 厂 ， 软 件 大 小 仅 为 8.5SMB 。 

在 编辑 .调试 方面 Mideva 比 MATLAB 强人 ,如 语法 突出 显示 ， 批 量 注释 ， 可 以 用 step， 
watch，breakboint 等 各 种 调试 手段 。Mideva 最 主要 特点 是 能 够 将 M 语言 的 文件 转化 为 C 语 
言 的 代码 ， 并 通过 Visual C++ 和 Borand C++ 将 其 编译 成 可 执行 程序 〈.exe) 或 动态 链接 上 库 

.dy。 这 个 特点 也 是 MathTools 之 所 以 要 推出 该 软件 的 出 发 点 。 因 此 ， 通 过 它 可 以 很 容易 
地 实 葛 MATLAB 和 Visual C++ 的 混合 编程 ， 而 且 具 有 混合 编程 的 所 有 优点 ， 既 提 癌 了 M 代 
码 的 复 用 牵 ， 又 提高 了 代码 的 执行 速度 ， 并 将 MATITLASBS 的 M 文件 转换 为 一 进 制 格式 的 可 热 
行程 序 ， 增 加 了 扼 识 保护 的 安全 性 。 

Matcotm 是 Mideva 的 内 核 , 它 是 “个 基于 C++ 缸 阵 上 区 数 库 Matrix<LIB> 的 一 个 MATLAB 
的 M 文件 与 C、CPP 文件 的 转换 程序 。 可 以 理解 Mideva 为 Mateom 的 一 个 集成 调试 编译 环 
境 【〈 界 面 )。 在 很 区 MATLAB 赂 书 中 ， 对 二 者 并 不 加 以 区 分 ， 本 书 中 同样 不 加 以 区 分 。 

Matcom 独立 于 MATLAB 之 外 ， 但 需要 外 部 的 C++Cempiler， 在 安装 时 需要 指定 C++ 
Compiler 的 位 置 ， 备 则 无 法 工作 。 安 装 时 需要 指定 MATLAB 的 位 置 ， 主 要 是 为 了 编 详 文件 
时 找到 和 震 要 的 一 些 系统 函数 的 路 径 。 

因为 现在 MathTootls 公司 已 经 被 生产 MATLAB 的 MathWorks 公司 兼并 ， 昌 前 Mideva 已 
经 被 集成 到 MATLAB 6.0 以 后 版 本 中 ， 因 此 MathwWorks 不 再 提供 单独 的 Mideva 产品 ， 但 互 
联网 七 仍 有 很 铬 以 前 的 免费 下 载 版 本 。 由 于 M 文件 经 过 Mijdeva 转换 后 生成 的 C、CPP 代码 
具有 简单 、 高 效 和 易于 理解 的 特点 ， 可 以 在 Yisual C++ 程 中 灵活 使 用 ， 因 此 本 章 估 进 行 较 
详细 的 介绍 。 





























7.2 Mideva 的 安装 


Mideva 的 安装 与 任何 Windows 下 的 应 用 程序 安装 一 样 ， 会 出 现 一 些 标准 克 indows 风格 
的 安装 对 话 框 ， 但 是 安装 过 程 中 弹出 的 对 话 框 较 和 多， 通常 会 出 现 一 些小 的 问题 。 下面 对 一 些 
常见 的 问题 进行 测 要 介绍 。 

在 按照 对 话 框 的 要 求 输入 安装 路 径 ， 系 统 拷 贝 完 程 序 后， 会 阐 出 如 图 7-1 所 示 的 对 话 非 ， 
要 求 输 入 License。 这 时 可 以 将 从 MathTools 公司 中 请 到 的 License 输入 《〈 注 ,现存 很 多 网 络 
上 有 Mideva 的 破解 密码 )。 然后 系统 会 弹出 如 图 7-2 所 示 的 对 话 框 ， 提示 Mideva 已 经 自动 找 
旬 了 CC++ 的 编译 器 《以 Wisuat C++ 为 例 )， 选 拼 “ 是 〈Y)” 接 受 ， 
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MathTools License Manager 
2 有 | 郊 攻 3 


大 

放 2 计 

FT 
4 





图 7-1 Mideva 的 License 对 话 框 图 7-2 ”Mideva 自动 搜索 C/C++ 编 译 器 对 话 框 


然后 ， 系 统 会 弹出 如 图 7-3 所 示 的 对 话 框 ， 提 示 是 否 安装 了 MAITLAB 。 如 果 机 器 上 已 经 
安装 了 MATLAB 则 选择 “是 (Y)”， 系 统 弹出 如 图 7-4 所 示 的 对 话 框 ， 提 示 是 否 自动 搜索 
MAILAB， 同 样 选择 “是 (Y) ”。 


MIDEYA MIDEYA 


IE 这 





图 7-3 MATLAB 是 否 安装 提示 对 话 框 图 7-4 是 否 自 动 搜索 MATLAB 对 话 框 


这 时 , 通常 会 出 现 如 图 7-5 所 示 的 出 错 告警 对 话 框 , 提示 安装 Matcom 在 搜索 MAITLAB 
路 径 时 找 不 到 matcom.m。 出 错 的 原因 是 MATLAB 6.x 的 Windows 版 本 中 MATLAB.exe 不 
在 MATLAB\bin 下 ， 而 在 MATLAB\bin\win32 下 ， 所 以 在 安装 Matcom 时 ， 把 
bin\win32\MATLAB.exe 移动 到 bin\， 即 上 移 一 层 目 录 ， 安 装 Matcom 后 再 移动 回去 即 可 。 





图 7-5 ”安装 过 程 中 常见 的 出 错 告警 对 话 杠 


从 Windows“ 开 始 ” 栏 “程序 ”组 启动 Mideva， 会 出 现 如 图 7-6 所 示 的 对 话 框 ， 提 示 为 
创建 必要 的 路 径 ， 需 要 在 MATLAB ,环境 中 执行 提示 框 中 的 MATLAB 命令 。 单 击 “ 确 定 ” 按 
钮 ， 对 话 框 中 的 MATLAB 命令 会 出 现在 Mideva 的 窗口 中 ， 复 制 这 些 MATLAB 命令 ， 然 后 
启动 MATLAB， 在 MATLAB 环境 中 执行 这 些 命令 后 退出 MATLAB 。 此 时 ， 关 闭 Mideva 后 
重新 启动 Mideva 将 不 再 出 现任 何 提示 或 告警 信息 ， 它 表明 Mideva 已 经 成 功 安装 。 

为 了 验证 Mideva 是 否 安装 ， 可 以 在 Mideva 中 执行 magic( ) 函 数 ， 若 能 正确 运行 则 表明 
安装 成 功 。 

>”magic(5) 

ans (5SXx5)=25 double elements real (200 bytes) = 
lI7 24 1 8 15 

23 5 7 14 16 

6 13 20 22 

I0 1l2 19 21 3 


es。 109。 


l1 18 23 2 9 


To create the mpath file, please run MATLAB now and type; 





图 7-6 ”提示 需要 在 MATLAB 环境 中 执行 的 命令 


注 : 是 否 安装 有 MATLAB 对 Matcom 没有 什么 影响 ， 完 全 可 以 选择 没有 安装 MATLAB， 
仍然 可 以 编译 大 多 数 文件 . 需要 MATLABNtoolbox 下 的 文件 时 ， 用 addpath( ) 添 加 路 径 或 者 找 
贝 到 当前 目录 下 即 可 。 


7.3 ”Mideva 环境 下 M 文件 到 dlyexe 文件 的 转换 


在 MAITLAB 环境 中 可 以 由 M 文件 生成 执行 程序 ， 但 此 exe 文件 仍 不 能 脱离 MATLAB 
的 后 台 文 持 。 利 用 Matcom 则 可 以 生成 不 再 需要 Matcom 环境 支持 的 exe 文件 。 其 生成 方法 
相当 简便 ， 直 接 利 用 Matcom 菜单 File /Compile to exe/〈 如 图 7-7 所 示 )， 然 后 选择 要 生成 的 
M 文件 ，Matcom 便 会 自动 完成 exe 文件 的 编译 与 链接 。 编 译 完 后 就 可 以 在 DEBUG 目录 中 
找到 与 M 文件 同名 的 exe 文件 。 


呈 IDEYA (r Sa - e iaatcen -19l xl 










EVA 4.50，the fast m-file [savarable |oes ] 
-Inore proqauct3s anad Le 
一 Eree porxtal Eor In- 工 1 









Compile to dlL1I .,. 


了 Print 
Print Setap ... 


Exit 





plotfx 思 b-x12. 到 Using Yisual C++ : Target VVinNTNVin95 ” 志 | 
区 4"pl -3 3: (Win32) 
多 


X1 
edit GbyangPlotm 
[xout.Youtj=gbyangplot[1. 10) 


区 New MIDEVA 5ession -一 -多 了 | 























图 7-7 Mideva 运行 时 部 分 界面 
这 一 功能 只 针对 Visual C++ 开发 ，dll 的 生成 方法 如 同 生成 exe 文件 的 方法 ， 它 可 以 生成 


“人 


针对 VB，Excel，Delphi 等 的 动态 链接 库 文 件 ， 使 用 起 来 非常 方便 。 生 成 dll 的 过 程 中 同样 要 
生成 cpp 文件 。MathTools 公司 建议 用 户 : 如 果 是 用 Visual C++ 开发 程序 ， 那 么 最 好 直接 使 用 
Matcom 编译 生成 的 cpp 文件 ， 而 不 是 直接 使 用 dll 文件 。 

另外 值得 说 明 的 一 点 是 : Mideva 环境 下 绘制 的 图 形 ， 在 Control 菜单 下 包含 OpenGL 和 
Zoom 等 子 菜单 ， 因 此 ， 可 以 通过 菜单 进行 调整 。 如 图 7-8 所 示 是 一 条 简单 的 正弦 曲线 ， 与 
MATLAB 环境 下 绘制 的 图 形 外 观 差 异 不 大 。 可 以 通过 菜单 进行 调整 ， 调 整 后 的 图 形 如 图 7-9 
所 示 。 





Pile 了 dit Control 旺 rdows 上 bout 
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图 7-8 ”Mideva 环境 下 的 图 形 绘制 






Pile 了 dit Control 旺 ndows 上 bout 
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图 7-9 Mideva 下 绘制 的 图 形 通过 菜单 进行 调整 


7.4 Visual C++ 环境 下 使 用 Mideva 混合 编程 


Mideva 提供 的 功能 相当 强大 ， 因 为 它 包 含 了 近 千 个 MATLAB 的 基本 功能 函数 ， 通 过 必 
要 的 设置 就 可 以 直接 实现 与 C++ 的 混合 编程 ， 而 不 必 再 依赖 MATLAB 。 同 时 ，Mideva 还 提 
供 编译 转换 功能 ， 能 够 将 MATLAB 函数 或 编写 的 MATLAB 程序 转换 为 C++ 形式 的 dl， 从 
而 实现 脱离 MATLAB 环境 对 MATLAB 函数 和 过 程 的 有 效 调 用 ， 这 样 就 有 可 能 实现 对 
MATLAB 工具 箱 函 数 的 利用 。 


1 








7.4.1 混合 编程 环境 的 设置 


Mideva 安装 时 会 提示 选取 CAC++ 编 辑 冉 ， 还 需要 指定 MATLAB， 主 要 是 为 了 编译 文件 
中 需要 的 一 些 系统 函数 来 找到 路 径 用 的 。Mideva 媒 供 了 易于 使 用 的 接口 ， 可 直接 通过 某 单 
File->Compiie to exe 或 Compiie to gl 将 M 文件 转换 为 可 执行 文件 ， 辣 时 自动 生成 了 相 度 的 
CiCPE 文 任 。 

为 了 借 肛 Wisual C++ 强大 的 集成 调试 环境 ， 以 便 将 生成 的 CCPP 代码 添 如 人 审 Visual C++ 
的 工程 中 ， 必 须 先 进行 必要 的 设置 。 主要 有 以 下 几 阔 : 

(1) 深 加 头 文件 .Matlibh 是 Mideva 提供 的 函数 的 头 文件 ， 它 位 于 cmatcorm45SM 刘 目下 
上 下。 方法 是 通过 Preject->Setting 菜单 ， 选 取 CAC++ 选 项 卡 ， 在 Category 中 选取 Preprocessor, 
然后 在 Additional ineclude directory 中 添加 目录 cmatcom45Niib。 

(2) 添加 库 义 件 。 通 过 Ptoject->Add To Project 选取 Files， 然 后 按 提 示 选 取 cmatcom4SNib 
日 录 下 的 vd4S00v.tib 文件 。 

注意 ， 不 同 的 Mideva 文件 各 可 能 略 有 善 异 ， 如 4.51 版 本 为 v450Hvlib。 如 果 读 者 从 网 上 
发 现 有 的 程序 是 用 4.51 版 本 编译 的 ， 而 自己 的 机 器 上 只 有 后 50 版 本 的 库 广 件 , 这 时 可 以 修 政 
tmatlib.h 中 Matcom_ VERSION 宏 定 义 。 方 法 是 将 “和 lefine Matcom_VERSION 4501” 故 为 

*#define Matcom_VERSION 4500". 


7.4.2 通过 外 过 函数 调用 


另外 ，Mideva 可 将 M 文件 转换 为 exe 文件 ， 也 实现 了 一 种 混合 编程 的 途 从 。 实 现 方 法 
是 利用 外 上 克 函数 WinExeel ) 或 She]lExecute( ) 直 接 调 用 exe 文件 。 
函数 WinExec( ) 的 原型 是 : 
UINT 多 inExecf 
工 PCSTR lpPCmdLine， 产 address of command line 
UINT nCmdShow 并 Winpdaow styte for new applicarion 
机 


共 中 ，ipCmdLine 为 包含 命令 行 参 数 的 字符 串 ，nCmdShow 用 来 控制 窗 吕 状态， 第 多 的 
如 SW_SHOW，SW_SHOWMAXIMIZED 和 SW_SHOWMINIMIZED 等 。 
函数 ShellExecutef ) 则 稍微 复杂 - : 些 ， 它 的 原型 足 ; 
HINSTANCE 3SpelliExecute 
HYWMND hwnd， 
LPCTSTR ]pOperatton， 
LPCTSTR lpFile， 
LPCTSTR Pararmneters， 
LEPCTSTR ]pDirectory， 
INT nshowtC ma 
天 


其 中 ，hwand 是 指向 父 窗 口 的 窗口 句柄 ，lpOperation 为 一 字符 串 ， 指 定 要 执行 的 操作 ， 这 
时 应 设 为 NULL。lpFile 为 文件 名 ， 即 通过 外 壳 画 数 调用 的 exe 文件 的 名 字 。lpParameters 为 可 
执行 文件 的 参数 ， 而 jpDirectory 为 exe 文件 所 在 的 目录 ，nShowCmd 是 窗口 的 显示 状态 ， 与 
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WinExec 的 nCmdshow 舍 祥 相同 。 


通过 外 壳 函 数 育 接 调 用 exe 的 方法 ， 实 现 简单 ， 且 无 须 链接 头 文件 和 库 ， 但 ，- 般 在 程序 
中 不 能 接收 返回 值 ， 灵 活性 美 。 


7.S Matrix<LIB> 


通过 Mideva 和 动 地 将 M 文件 转换 为 C、CPP 文件 ， 然 后 将 生成 的 C、CPP 代 友 拷贝 到 
Visual C++ 工程 中 ， 从 而 实现 Mideva 和 Visual C++ 的 混合 编程 ， 可 以 降低 旋 用 程序 的 并 发 难 
度 。Matcom 是 Mideva 内 核 的 C++ 编译 器 ， 它 可 以 生成 C-MEX 和 独立 应 用 程序 。 实 际 上 ， 
Matcom 包含 了 一 组 称 为 Matrix<LIB> 的 C++ 库 . 它 是 MathTools 公司 开发 的 一 个 矩阵 数学 库 ， 
提供 了 一 个 双 精 度 Matrix 类 型 一 一 Mm， 它 可 以 是 复数 和 矩阵、 实数 矩阵 、 稀 朴 乍 阵 甚至 na 维 
第 阵 ， 这 个 库 共 有 600 多 个 琐 数 和 重 载 的 拘 作 符 ， 水 太 线 性 代数 、 多 项 式 数 学 、 信 号 处 理 、 
文件 输入 /和 输出、 图像 处 理 、 绽 图 等 方面 。 这 些 函 数 都 经 过 仔细 优化 ， 以 提供 更 好 的 矩阵 操作 
性 能 。 

通过 Mideva 实现 混合 编程 的 实质 是 利用 了 Matrix<LIB> 中 的 库 国 数 。Matrix<LIB> 的 阴 
数 基 于 扼 阵 类 型 ， 大 多 数 函 煞 原 型 类 似 于 MATLAB 冰 数 ， 而 且 深 加 几 要 的 头 文件 和 库 葡 件 
后 可 以 在 Wisual C++ 环境 下 编译 运行 . 至 于 Matrix<LIB> 的 详细 内 容 以 及 按 Matrix<LIB> 语 法 
洛 现 混合 编程 ， 请 参阅 第 8 章 。 





























7.6 ”混合 编程 实例 


下 面 通过 两 个 兵 体 的 实例 说 明 通 过 Mideva 实 坝 混 合 编程 的 方法 〈 假 设 机 此 上 已 经 正确 
安装 了 Mideva)。 
【 例 7-1】 启 动 Mideva， 编 辑 一 个 名 为 gbyang 的 M 文件 ， 其 功能 是 在 一 个 窗口 中 绽 制 
4 个 到 开 ，M 文件 如 下 : 
地 0: pi720; 2#4 广 ij 
[x, y 记 meshgradrt); 


SUblo 荆 2,2,1); 
DlotsinfD,Cosfty): 


axis eqTal; 


SUbBPlotf 2.2,2)3 
Z=Sin(XyHCoS(yY》; 
plotft,z); 

xisf[D 2*+Pi -了 了] 和 


SbPlot[2, 了 ,3 
Z=SinfX]' 
Z 一 SnX].kCOS(y 沪 
Pot(oz]; 
4“ 113，。 











axisf[O 2*PiI -1 1 


SUbiplOtf2 2 4] 
Zz=fSin(XK).A2]-(eOSfY].A2] 
Plotttz): 

axXiSf[O 2YPi -1T 1 

















通过 Mideva 菜单 ， 将 gbyang.m 叉 件 转换 为 exe 文件 ， 它 会 同时 生成 cpp 驻 件 . 打开 
gbyang.cpp， 代 码 芭 FF: 
dMmtoi dwWmtxN dMany7 qdMmlz); 


eatl Stack begin3 

t= colonta,D Pi20.0.2.0+Pi); 
必 [xy] = *FrneshEiridtt ix. 
SUbplot2.02.0,1.0 
Piotl(CLIsintbpcostiD; 
aXisfCTMI equUal ) 
subpjlot(2.0,2.0,2.07; 

7 一 SinfX)HCOSTY)， 
PotfCCLID:z); 

aXisff 玉 及 (0.0 .2.0+ 让 -0 站] 
Subbpdoft2.0,2.0.3.03; 

工 二 SinfXxX]; 

工 三 fitnesfsimt XeostY 1 
pletGCLIt zi; 
aisf( 了 RDO.D) 2.0*Pic- 1 .1.0 
subplotf2.0.2.0.4.07; 

z= fpowerfsinfx1.2.0)]-(PowerMcosfy》2.0]7 
plot(CLID,z) 

站 让 丰 也 及 人 -0201.0.1 .0 


call _stack_end; 


生成 的 gbyangh 文件 代码 如 下 : 
基 fndef gbyang_h 
#detine gbyang_h 


Hend 证 用 __gipyang 


谱 仓 细 对 照 牛 成 的 gbyangcpp 代 伍 与 gbyangm 代码 ， 可 以 发 现 它们 特别 类 似 ， 基 本 上 
各 名 对 应 , 如 M 文件 中 的 “[x, 四 -meshgridfb;” 经 转换 后 变 为 “/*[x.y] = wmeshgrid(ti_ox.y) 7 
其 中 “F” 和 “s*f” 亲 的 内 容 为 和 动 生成 的 注释 ，i_o 为 多 个 输出 闲 数 中 作为 输入 、 输 出 咀 数 
的 分 隔 符 。 另 外 ， 生 成 的 cpp 中 的 “call_stack_begin;， ”和 “call_stack_end: ”可 以 注释 掩 
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并 不 影响 编译 ， 但 最 好 不 要 去 掉 ， 以 保持 代码 的 完整 性 。 

接 下 来 ， 我 们 建立 一 个 Visual C++ 新 工程 ， 选 择 MEFC AppWizard (exej， 工 程 名 凡 
MidevaTest。 在 step 1 选择 建立 Single Document， 其 余 各 项 均 采 用 默认 设置 ， 点 击 “Finish ”。 
然后 进行 以 下 几 步 操作 : 

按 7.4.1 节 中 《1) 和 《2》 进行 环境 设 普 。 

添加 以 下 琴音 项 ， 荣 单项 的 属性 设置 见 表 7-1， 并 在 视 疼 类 并 加 相应 的 事件 响 三 冰 数 。 





表 7-1 菜单 项 的 属性 设置 


人 apPtiom 并 Prormpt 
全 CPP 调用 











MDE ACE 背 用 Mideva 生成 的 CPP 代 妈 


冯 EXE 调用 TD_MIDPEVA_EXE 道 过 外 充 函 数 调 用 Mideva 生成 的 EXE 





人 在 MidevaTestView.cpp 开始 部 分 添加 术 mnclude "matiibh"， 以 将 头 文 件 包 含 到 工程 中 。 

在 void CMidevaTestView:z:OnMidevacCpp( ) 疯 数 中 先 添加 initM0OMatcom_ VERSION)， 然 
后 将 ghbyang.m 责 数 经 Mideva 鱼 动 转换 生成 的 CPP 文件 中 所 有 语句 拷贝 过 来 ， 了 最 后 添加 
exitMf )。 注 意 :， initM( ) 和 exitM( ) Mideva 工程 所 必需 的 ， 前 一 名 在 初始 化 类 库 时 使 用 ， 
后 一 可 为 线束 类 库 使 用 。 

将 Mideva 转换 生成 的 gbyang.exe 复制 到 本 工程 的 目录 下 。 

在 void CMidevaTestView::DnMidevaExet ) 范 数 中 先 潜 如 以 下 语 全 ; 

古训 Execf ebyang.eXe SSW SHOW 


以 下 是 新 滩 加 菜单 的 响应 事件 代 友 
void CNMidevaTestViecw::Onhiidevacbpf 》 


TODC: Add your cormmang handler code here 











inibvOwatecom_Y 和 RSIONTJ; 
dvintby daMrmntx dMrmty) dmfz]; 


抽 inge 1 "fimatcormd457sdynPjesAebyarg:tn 7 
callL_stack_begin; 

齐 ine 1 "ec:7matcom4S7samplesAgbyang.m” 
= Cnlon 人 2.0*i 

#line 2 "ece:hmatcom45/Sarrplesygbyang.Im” 
一 尽 [XY 二 二 rneshEridft it 已 .X7]; 


社 ine 4 "ematcom4s7Samplesygbyang.m” 
_ SUbplot(2.02.01.07 

看 ine 5 "cmatcom45/satrttplesyghbyang-rm 
_PletGCLIsin(bjheog 划 用: 

开 ime 6 "c:ymnatcomd4sAsamplesAEbyang.m 
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XISCTMK E9Ua 


提 ine 8 "evyrmmatcermmdsysamplesfgbyangs am 
_SDbpliot( 了 2 站 .2.0 

提 ine 9 “emalcorm45Asamplesfgbyang.Imm 
二 Sn 全 )HCOSY 

相 ine 10 "ce2mateom45Asarnplesygbyangrmm 
-plotGCLtb:zi 

失 ine 11 "cmatcnom4sAsamplcsygbyarng.m 
3 人 BIRD DY+Pi- 汪 人 了) 


##Hne 13 "emateornd4Sfsarmplesfebyang-ra 
_ SUbPIOLZ 个 之 全. 了. 入 

审 ine 14 "crmnarcotmd45jsarrthleSADYaS.TT 

zsSInfXD 

宝 ine 15 "czmateom45/samplesygbyang.m 
zz 二 timesfsinIxJJeosty 1 

#line 16 "csfmatceomd45Asamplesygbyang-m” 
_ plett(CLtt5z): 

提 ine 17 "ernatcormd45AamptesAgbyang.nl” 
_ axist(BRIO.O) .2.0*pi-1.0,1.0] 下 


机 ine 19 "emnatcemd45fsarnplesAgEbyang.Im 
_ 5subploti2.0.2.0.4.0); 
各 ine 20 "czhmatcom45/sarmplesygbyang.m” 
_ = fpowerfsin(xj.2.07-(powertcos(y1.2.0J; 
#line 21 "ezmalcom45Asarmnplesfgbyag.m 
_Pplet((CLIb.zD): 
扣 ine 23 "ematcomd45Aamplesyegbyang-m 
_aXisC(BRIO.O .3.0#Pi- 工 DO.1.0 


&all_sStack_end; 
尼 Xitvlf 
】 


void CMidevaTestViecw::DnMiidevaEXel ) 
[ 
PrTOPO: Add your cormand handler cnde here 
WinExecf "gbyang.eExe”， SW SHOW 
PShelltExccutetNULL. NULL， "gbyang.exe ,MULL， NULL, 3SW SHOW 
】 


全 11]1 折 。 


编译 后 运行 ， 运 行 界 面 如 图 7-10 所 示 。 分 别 单 击 “CPP 调用 ”和 “EXE 调用 ”， 结 果 
相同 ， 都 如 图 7-11 所 示 。 唯 一 的 差别 在 于 : “EXE 调用 ”时 会 闪 出 一 个 DOS 窗口 ， 它 与 直 
接 双击 gbyang.exe 文件 的 执行 效果 完全 一 样 。 





图 7-10 运行 界面 





图 7-11 运算 结果 


【 例 7-2】 下 面 是 一 个 基于 对 话 框 类 型 的 MFC 应 用 程序 。 它 通过 Mideva 和 Visual C++ 
的 混合 编程 实现 在 对 话 框 窗口 中 绘制 2D 和 3D 图 形 。 有 具体 包含 以 下 步 又; 
启动 Visual C++, 建立 一 个 新 工程 , 选择 MFC AppWizard(exe), 工程 名 为 draw。 在 “Step 
1of1” 选 择 “Dialog based”, 即 生成 一 个 基于 对 话 框 的 MFC 应 用 程序 ， 其 余 各 项 采用 默认 
设置 。 
使 用 库 的 头 文件 matlib.h。 首 先 按 7.4.1 节 中 “混合 编程 环境 的 设置 ”的 步骤 ， 添 加 必要 
的 头 文件 和 库 函 数 的 路 径 ， 并 在 drawDlg.cpp 中 添加 头 文件 ， 如 下 所 示 : 
/drawDlg.cpp : implementation file 
// 


#include "stdafx.h” 
##include "draw.h” 


在 nclude "drawDlg.h” 
e TL17。 


扩 nclude "matlib.h” 


在 CDrawDlg 类 中 添加 bool 类 型 的 public 成 员 变量 ExistFigure， 方 法 是 在 Workspace 中 
单 击 ClassView 选项 卡 ， 选 中 CDrawDlg， 同 时 单 击 右键 ， 选 择 Add Member Variable， 出 现 
添加 成 员 变 量 对 话 框 ， 如 图 7-12 所 示 。 

在 CDrawDlg 的 构造 函数 中 初始 化 ExistFigure 变量 ， 代 码 如 下 : 

CDrawDlg::CDrawDlg(CWnd*# pParent /*=NULL*/) 
:CDialog(CDrawDlg::IDD, pParent) 

人 
lf{{AFX_DATA_INIT(CDrawDlg) 

/NOTE: the ClassWizard will add member initialization here 

/}]AFX_DATA_INIT 
/Note that LoadIcon does not require a Subsequent DestroyIcon in Win32 
m_hIcon = AfxGetApp( )->LoadIcon(IDR_MAINFRAME); 


ExistFigure=false; 


} 





图 7-12 CDrawDlg 类 中 添加 成 员 变量 对 话 框 


在 IDD_DRAW_DIALOG 对 话 框 资源 中 删除 自动 生成 的 “取消 ”按钮 ， 添 加 两 个 Button 
控件 和 一 个 Picture 控制 , 并 按 图 7-13 所 示 调 整 好 控制 的 大 小 和 布局 , 然后 按 表 7-2 设置 控件 
的 Caption 和 ID 属性 。 


图 7-13 ”窗口 布局 对 话 框 


人 





表 7-2 新 增 控件 的 属性 设置 


JDC_2DIEPRAW 了 utton 1 











IDC_3DDRAYW Button 控件 
IPC_RIC Picrmnre 控件 


通过 ClassWizard 添加 按钮 控件 的 响应 事件 ， 代 码 如 下 : 
void CDrawDlg2ODn2ddrawt ) 


PTODGO: Adqd your control notificaton handler coge here 


initM(Mateom_VERSIOID， YA 初 始 化 类 库 


/根据 标志 判断 基 否 己 有 图 形 , 如 人 月 先 清除 
证 (ExistFigure==true) 
{ 

如 ] 代 ] 和 

ExXistPiUIE=false， 


了 以 下 代码 综 制 二 维 图 形 


Mmt，V 定 闵 变 量 
t= eolonfo.0.0.01 .2.0# 人 仿 


# 设 曾 绘 图 的 位 置 等 属性 
CwWnd spl1=NULL， 

pl=(tCWnd *)GetDigItemIIEC_PIC); 

Mrm blcthardle=wjnaxes(p1->m_ hwnd)i 
Mim pos=({BRI20)20.200,100j; 
get[plothandle,TMI( "RealRPosition )POS 包 


1 绘图 
Polarf(CLItDabasttinues(sint2 07 昌 ,CDS42.090 世 及 


frawnowf 


1 设置 是 否 绘图 标志 
了 xiStPigUirE=truei; 





exitM 7) 4 退出 闫 库 
】 


* 工 19。 








void CDrawDlg::ODn3ddraw( ) 
PTODGO: Add your ceontrol notification handler code here 


initwMKMatcom_VERSIONY HA 初始 化 类 库 





# 根 据 标 志 判 断 是 否 心 有 疼 形 ,如 有 先 清除 
这 4EXistFiRUIE==trUEC) 


{ 
C] 作 17， 


ExXistFigUre 一 ta]8e: 


P 以 下 代 凤 绘制 一 维 赂 形 


dMmY); 
dMmtzy duMmtxlidMmtyly: 


罗 = Colont8.0,-0.5.-8.0); 
TieshgTrjidfy,y,L_OX1.71); 
z= power(x1.2 人 +DOwWery1.2.07 


4 设置 给 儿 的 作 置 等 属性 

Cwand xp1=ULL: 

PPl=(CWnd :GetDigTtemtIDC_PICh: 
Mm plothandle=winaxesftp1->im_hwndji 





Mm poss=t 了 RI20320,100.59)]; 
set(Piothandle.TMI 及 eal]Pesition ,Posy 


Asettplothandie(CLOTMIO Color 疙 ，TMC white 8 去 不 本 行 前 的 尘 释 符 会 出现 如 图 7-15 太 丰 


# 关 图 
ImeshifCLIzy; 


中 rawneowf ); 


H 设 置 是 否 绘图 标点 


下 xistFijguUre 一 true: 


exitMI WA 退出 类 庄 


"120* 


编译 后 运行 ， 出 现 如 图 7-14 所 示 的 运行 界面 。 分 别 单 击 “2D 绘图 ”和 “3 维 绘图 ” 按 
钮 ， 会 出 现 如 图 7-15 和 图 7-16 所 示 的 实验 结果 。 在 去 掉 代码 中 修改 图 形 属性 代码 前 的 注释 
符 后 ， 重 新 编译 链接 ， 单 击 “3 维 绘图 ”按钮 则 出 现 如 图 7-17 所 示 的 实验 结果 。 





图 7-15 2D 绘图 结果 





图 7-16 三 维 绘图 结果 
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图 7-17 修改 属性 后 的 绘制 结果 


7.7 小 弓 i 


通过 本 章 的 介绍 可 见 ， 利 用 Matcom 进行 M 文件 转换 非常 容易 ， 生 成 的 代码 可 读 性 很 
好 ， 以 上 的 转换 同时 生成 了 可 供 Visual C++ 调用 的 动态 链接 库 ， 其 使 用 和 一 般 的 动态 库 一 样 。 
需 指 明 Matcom 不 仅 可 转换 独立 的 不 依赖 于 其 他 M 文件 的 M 文件 ， 同 时 可 转换 调用 其 他 M 
文件 的 M 文件 嵌 套 。 条 件 是 这 此 M 文件 在 同一 个 目录 下 。 
实际 上 ，Mideva 和 Visual C++ 混合 编程 都 是 通过 Matrix<LIB> 实 现 的 ， 因 此 也 可 在 
MEFC 应 用 程序 中 直接 使 用 Matrix<LIB>。 但 这 要 求 对 Matrix<LIB> 的 函数 较为 熟悉 。 值 得 
- 提 的 是 ， 绘 制 的 图 形 都 是 在 Mideva 环境 下 ， 其 图 形 不 仅 可 以 通过 点 击 鼠 标 任意 放大 ， 还 
可 以 任意 旋转 ， 而 旋转 在 MATLAB 环境 下 的 图 形 是 做 不 到 的 ,因此 这 有 助 于 从 各 个 侧面 观 
察 曲 线 /曲面 。 
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第 8 章 利用 Matrix<LIB> 实 现 混 会 编程 


8.1 Matrix<LIB> 人 简介 


第 了 章 介 绍 了 Mideva 提供 的 一 种 实现 混合 编程 的 方法 :通过 Mideva 自动 将 M 文件 转换 
为 C、CPP 文件 ， 然 后 将 生成 的 C、CPP 代码 拷贝 刘 Visual C++ 工程 中 ， 从 而 降低 开发 难度 . 
Matcom 是 Mideva 内 核 的 C++ 编译 器 , 它 可 以 生成 C-MEX 和 独立 应 用 程序 .实际 上 ,Matcom 
包含 了 一 组 称 为 Matrix<LHB> 的 C++ 库 . 它 是 MathTools 公司 开发 的 一 个 矩阵 数学 库 ， 提 供 
了 一 个 双 精 度 Matrix 类 型 一 --Mm， 它 可 以 是 复数 矩阵 、 实 数 算 阵 、 稀 朴 和 矩阵 甚 至 na 维 矩 
阵 。 这 个 库 共 有 600 多 个 函数 和 重 载 的 操作 符 ， 涉 及 线性 代数 、 多 项 式 数 学 、 信 和 号 处 理 、 
文件 输入 /输出 、 图 像 处 理 、 绘 图 等 方面 。 这 些 函 数 都 经 过 和 仔细 优化 ， 以 提供 更 好 的 和 拭 阵 操 
作 性 能 。 





























8.2 Matrix<LIB> 与 Visual C++ 混合 编程 


在 Visual C++ 工程 中 直接 按照 Matrix<LIB> 的 语法 编程 ， 即 可 实现 商 效 的 编程 。 这 是 因 
为 Matrix<LIB> 的 函数 基于 托 阵 类 型 ， 大 多 数 冰 数 原型 类 似 于 MAILAB 函数 。 实 际 上 ， 
Matrix<LIB> 是 将 一 些 很 有 用 的 MATLAB 函数 封装 成 C++ 的 库 义 件 ， 库 以 一 组 Windows 动 
态 链接 库 的 形式 提 伐 ， 因 此 生成 的 可 执行 文件 很 小 。 


8.2.1 Matrix<LIB> 的 安装 








因为 Matrix<LIB> 是 Matcom 的 内 核 ， 而 Matcom 是 Mideva 的 CAC++ 编 译 器 。 因 此 ， 当 
计算 机 上 安装 了 Mideva 以 后 ， 即 自动 安装 了 Matrix<LIB> 和 矩阵 数学 库 。 


8.2.2 Visual C++ 环境 配置 


Matrix<LIB> 是 一 个 C++ 的 库 。 为 了 将 库 文件 集成 到 C++ 的 工程 文件 中 ， 必 须 对 Visual 
C++ 工程 进行 一 些 必要 的 环境 设置 。 具 体 需 要 执行 如 下 操作 : 
1， 将 产 文 件 加 到 C++ 的 工程 中 


Matrix<LJIB> 必 须 加 入 到 C++ 的 工程 文件 中 ， 以 便 C++ 编译 器 能 够 将 它 链 搂 到 最 后 的 执 
行文 件 中 去 。 在 Visual C++ 中 利用 葛 单 亢 念 “ ProjecUAdd to Project 7 Files ”将 v4500vtib 加 
入 到 C++ 工程 中 ， 





2. 使 用 库 的 头 文件 mmattib.h 


它 描述 Matrix<LIB> 中 用 到 的 数据 类 型 、 琢 数 原 型 以 及 常量 。Visual C++ 工程 中 宕 要 评 加 
inclade "matlib.h"， 诈 同 时 告诉 编译 器 文件 matlib.h 所 在 的 路 径 ， 即 通过 菜单 项 “Project 





”123 * 





SetlingsAC, C++HPreprocessor Additional inclnde Subdirectories” 添 加 cmatecom45ib 来 完成 此 
项 工作 ， 


8.2.3 初始 化 库 


在 调用 Matrix<LJIB> 之 前 要 使 用 轴 数 initM(Matcom _ VERSION) 采 初 始 化 类 库 调 用 ,并 用 
exitM ) 函数 来 结 东 类 库 凋 用 。Matcom_VERSION 是 -个 在 matliib 且 中 定义 了 的 常量 ， 它 保 
证 动态 链接 库 与 matlib.h 相 匹 配 。ExitM( ) 席 该 是 程序 中 返回 命令 return 之 前 的 最 后 一 条 语 
人 各。 ” 


1， 生 成 矩阵 


Matrix<LIB> 定 义 矩 阵 类 型 的 关键 字 为 Mm。 如 果 需 要 定义 乱 阵 ab 和 x， 则 可 以 通过 添 
加 下 列 语 操 构 造 矩阵 ab 和 : 
RMm ai; 
Rn b， 
mn x: 


新 构造 的 拖 阵 ab,x 述 是 空 第 阵 。 上 面 的 一 行 语 何 应 该 座 加 到 initM( ) 和 | exitMf ) 之 间 。 
2 设置 敌阵 元 素 
设 曾 拖 阵 a 为 3X3 的 随机 和 托 阵 ， 然 后 给 b 赋值 ， 


ae=TdnL37 和 b 一 ZeTOSC 访 1) 
Jr01， 13 brf2，]) 一 -jb.r(3，] 三 9: 
值得 一 提 的 症 ， 在 给 a 赋值 前 并 没有 给 a 预定 义 维 数 和 分 配 内 存 。 重 载 后 的 运算 符 “” 
可 以 处 理 这 些 操作 。 而 矩阵 hb 预先 通过 b=zeros(3.， 1 指定 了 维 数 ， 使 用 了 直接 访问 的 成 员 范 
数 rfrow, col。 
所 有 的 内 存 管理 和 第 阵 维 数 的 重新 分 配 都 是 自动 的 ， 创 立 拖 阵 变 凑 时 一 般 很 少 需要 分 配 
拖 阵 维 数 。 


3， 访 问 卸 阵 的 元 素 


可 以 币 rrew, eol 访问 托 阵 的 单个 元 素 ， 其 中 row, eol 分 别 为 矩阵 元 素 的 行 、 列 下 标 。 兄 
外 两 个 函数 rows( ) 和 cals( ) 分 别 返 回 和 矩阵 的 行 、 列 数 。 


4 调用 竹 阵 Matrix<LIiB> 的 函数 


Matrix<LIB> 的 函数 具有 与 MATLAB 中 明 数 类 似 的 形式 。 设 ab 为 两 个 年 阵 ， 要 求解 x 
渗 足 线性 系统 几 =b， 可 以 用 上 面 的 语 名 实现; 
X=Imldividefa by); 
Qi5P]ay(XJ)， 
midividet ) 函 数 用 来 求 两 个 矩阵 的 商 ， 而 出 splayf ) 冰 数 显示 矩阵 元 素 。 


8.3 ”Matrix<LIB> 函 数 使 用 参考 


下 面 对 Matrix<LIB> 中 常见 的 一 些 函 数 进 行 简单 介绍 。 更 详细 的 信息 可 以 查看 Matrix<LIB> 
= 124 ， 
























































参考 卑 册 或 联机 六 档 。 
8.3.1 和 矩阵 操作 
1, 生成 给 阵 


Matix<LIB> 中 证 阵 的 类 型 称 为 Mm， 滑 用 来 定义 敌阵 变量 ， 但 它 定义 的 矩阵 是 空 矩阵 。 
以 下 几 个 图 效 常 用 于 对 征 阵 赋值 : 
Mr a; 8 定义 第 阵 变量 a 
a=zerosfm DJ: 8 定义 休 mxan 维 的 零 矩 阵 
a=zerosfT mb) 8 定义 “个 多 维 的 零 矩 阵 
a=czerosfisc, Im mn]: f 当 ise=tme 时 ， 定 义 个 复数 元 素 的 给 阵 


2， 从 一 个 数 生 成 矩阵 


数 可 以 自动 地 转换 成 矩阵 ， 如 : 
fm xi; 
和 = 了 .Te-3i 





iispI(XJ; 


则 代码 的 输出 为 : 0.0027。 
3. 命名 托 阵 


和 矩阵 可 以 在 创建 时 偷 名 ， 这 时 它 可 以 用 函数 display( ) 显 示 ， 并 可 以 通过 getnamet ) 成 员 
函数 访问 。 抢 阵 名 很 方便 ， 但 并 不 是 任何 时 候 都 使 用 ， 如 从 一 个 数 自动 转换 得 到 的 不 会 被 合 
名 。 

撼 阵 命名 的 构造 符 是 dMm《 它 实际 上 是 一 个 宏 )。 例 如 下 列 语句 ; 
Qi fa]; 
as=1.4， 
二 Spy (37 
将 会 生成 如 下 结果 ; 
aflXl)=l double elermments ITeal (8 bytes) = 
1.5 ， 
与 之 对 应 ， 通 过 下 询 语 名 
Rn a， 
包 =1 .5， 
dispPlaytay; 
将 会 生成 如 下 结果 : 
ans (1x1) 一 1 double elements real (和 bytes)= 
].5 
如 果 将 上 面 的 函 煞 看 splay(g 改 为 disp(a]， 则 二 者 没有 差别 ， 显 示 结 果 都 为 1.5。 
此 外 , 由 于 dMm 是 一 个 宏 , 不 能 同 进 创 建 几 个 年 阵 。 如 果 要 创建 儿 个 矩阵 ,必须 分 开 ， 
即 一 次 只 能 创建 一 个 矩阵 。 
dMmtal dMmtb): qdMmte); # 上 依 ， 一 次 创建 一 个 矩阵 


9 25 。 























刘 果 号 成 dMmta, b 则 编译 时 会 出 示 错 误 信 息 : warming C4002: too many actual parameters 
for macTo dMnm 。 


4. 生成 字符 事 痊 阵 
转换 函数 TM() 提 供 了 将 局 字符 串 转 换 为 矩阵 的 能 石 ， 例 如 : 
Mn x; 
X=TMEC This SeHtenee 18 false 
代 谷 将 会 创建 -个 名 字 为 x 的 筷 阵 ,， 它 的 内 容 是 上 面 的 勾 闻 .用 display( 命 令 显 示 结 漂 
如 下 : 


ans 1x22)=-22 char elermnents 【1376 hytes) 一 





This sentence is false 
成 员 范 煞 setstrtinb 可 以 用 来 设置 或 者 改变 和 阵 的 字符 串 属性 《stringness)， 它 主要 是 让 
diisplay( ) 冰 数 知道 怎样 显示 怎 阵 ， 如 : 
dm xi 
X=TMI This Sentehce 这 false ”ji; 
xX.SetStrf1); 











由 SPIxXJ; 
则 会 显示 “This sentence is false”， 而 一 些 说 明 依 息 没 有 了 。 





5. 转换 字符 串 矩 阵 为 指向 字符 的 蕴 针 
与 TM( ) 相 反 ， 函 数 Mstr( ) 提 供 了 将 字符 串 矩 阵 转换 为 char * 类 型 的 能 力 ， 它 的 原型 是 : 


vCid DLLI Mstrf(eMim Xehar *+stT, int TnaXien); 
其 中 , x 是 洲 扬 阵 ，str 是 指向 宁 符 串 的 变量 ， 人 而 maxlen 指定 可 以 存 情 在 str 中 的 字符 的 最 大 
数目 。 当 矩阵 中 包含 的 字符 长 度 超过 maxlen 时 ， 后 面 的 部 分 将 会 被 截 尾 。 


6. 访问 起 阵 的 内 容 


在 C++ 中 访问 【《 读 或 气 ) 矩阵 元 素 是 通过 遇 个 成 员 范 数 进行 的 。 设 x 为 一 个 后 阵 ， 则 可 
以 通过 xr( ) 访问 拖 阵 的 实 部 :， xi) 访问 押 阵 的 虚 部 。 
当 使 用 这 两 个 成 员 函 数 时 ， 它 会 检查 参数 是 否 在 矩阵 的 维 数 之 内 。 如 蓝 直 是 ， 将 会 出 现 
错误 提示 。 根 据 需要 ， 它 有 以 下 4 种 其 体形 式 ， 以 xf) 为 例 : 
@ XI 返 上 加 矩阵 (1 已 位置 的 值 ; 
ea Xirfn 1) 返回 甜 阵 (1, 四 的 值 : 
s xi 返 四 托 阵 (人 j) 位 置 的 值 ; 
s。 Xi j,k) 多 维 拖 阵 返 回 征 阵 人 jj 名 位 莹 的 值 。 
对 已) 的 使 用 也 是 类 似 的 。 
Rn x; 
doub 上 ea, b, gs; 
X=TBgic(3) ANAx=[3163374392] 
a=X.r Na= 吕 
b=X.r(2 和 5 Ahb=3 




















这 台 





S=xT(3.2) mc=9 
XI -TD AAAx=[-8163537492] 


7. 直接 访问 矩阵 的 内 存 





妆 许 多 拢 阵 元 素 需要 读 、 写 时 ， 可 以 直接 使 用 抑 阵 在 内 存 中 的 地 址 访问 。 它 同样 是 通过 
两 个 成 员 国 数 实现 的 。 

sxaddrf ) 返回 指向 矩阵 实 部 的 指针 

es x.addif ) 返回 指向 矩阵 虚 部 的 指针 ， 

类 似 于 :x)， 它 们 也 根据 需要 有 三 种 具体 的 调用 形式 ; 

e xX.addr( ) 指向 年 阵 元 素 (1. 1 的 指针 ; 

sx.addrm 指向 托 阵 泡 素 人 ,种 的 指针 ; 

sa x.addrti, 六 指向 知 阵 元 素 人 ,的 指针 。 

现 举 例 说 明 如 下 : 


Rn xi; 





double a be 

x=Tmmagicf(3) mx=[816357:45937] 

a=*#X.addrf ) WA8=g 

bb=*X.addrt2y Ahb=]; 

站 X.acdldr(3，] ) 一 -999， 站 X=[8160:357 -99992] 

X,edldrt ) 一 - -X.addrf xx[-816033S7-99992| 

这 里 .addr( ) 也 可 以 用 来 -一 次 将 第 吗 的 所 有 元 素 读 到 一 指向 双 精 度数 的 指针 中 ， 以 便 与 其 

他 程序 接口 ， 

double a_Y=(doubles ) mnallocf512+sizeotfdoubley 

Mm a=some_funetionf 和 ww 假 设 a 是 一 个 512X1 的 垂 阵 

Tietmepyfa_v, aaddr( ) 与 12#Sizeoffdoubley; 


8. 从 双 精 度 常 数 向 量 生成 矩阵 


可 以 通过 宏 M_VECTOR{ ) 从 一 个 双 精 度数 的 矢量 初始 化 化 矩阵 。 例 如， 
double a_v=| 1 ,3.5.4.0, -1 4.6 
Mn ai 
KLVECTORIa av 

然后 可 以 通过 reshapet ) 函 数 将 收 刘 的 向 基 改 为 自 定 义 维 数 和 矩阵 ， 
reshapef2, 3); WA 将 a 改 为 2X3 的 宅 阵 








9， 从 指向 双 精 度 的 指针 中 初始 化 纸 阵 


从 一 个 间 零 的 双 精 度 司 量 初始 化 一 个 矩阵 , 可 以 使 用 .以 ) 成 员 函 数 逐 个 初始 化 ， 也 可 以 接 
如 下 方法 完成 : 
double *a_vV; 假设 a_y 是 一 个 已 定义 的 指向 驱 精 度 常 数 块 的 指针 
Mm a=zeros(1, 10); 8 定 尽 种 阵 向 量 
Imeimepyfa,add 贡 ) a_w 10+rsizeoffdeubleD，， Z 初 始 化 矩 降 
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10. 从 一 列 数 中 生成 矩阵 
BRI ) 函 数 可 以 从 一 列 数 中 生成 囊 阵 ， 它 易于 使 用 。 例 如 ; 


Mm a=(( 卫 有 民 二 总 -1 Sermj, ji、Pj, 5 Semi 0.3,-4. 0 出 sSPlayfay; 
则 生成 了 一 个 复数 中 阵 变量 : 
ans (3X3)}= 呈 double elements cormplex (72 bytes) = 
1 扣 -1 
口 十 划 3.142 3 
D3 -和 候 
其 中 ，semi 相当 于 MATLABH 拖 阵 变量 赋值 中 的 分 号 。 


11， 一 些 逢 阵 类 的 成 员 通 煞 


下 面 分 绍 一 些 和 矩阵 类 的 成 员 函 上 数 。 假 设 夺 是 一 个 矩阵 变 基 ， 所 有 的 矩阵 成 员 函 效 都 可 以 
用 xfunecf ) 访 问 。 

,sizer ) 返回 缸 阵 元 素 的 个 数 ; 

-sizefdinm 返 四 第 dim 维 的 元 素 个 数 ; 

to0ws( ) 返 思 矩阵 的 行 数 ; 

cos() 返回 矩阵 鬼 列 数 ; 

.jsst() 羯 断 和 矩阵 是 否 是 字符 串 和 矩阵 ， 如 果 是 则 返回 “1” 

.isc(】 ”判断 年 阵 是 人 否 是 复 矩 阵 ， 如 果 是 则 返回 “1”。 


8.3.2 ” 库 常 量 


* 虚数 单位 让 守 
e。 Pi 常量 pi=3.1415926; 
e。 Inf 无穷大 ; 
s。 NaN 不 定数 ， 如 Wo， 
es eps ”最 小 的 数 ( 定 尺 为 2^-$2)，1+eps<>1; 
ee semi 常 与 BR( ) 一 起 用 于 分 隔 托 阵 行 ， 例 如 a=(BR(01), 2 semi, 3, 4 
es ch 相当 于 MATLAB 中 的 colonty， 例 如 ; 
RMm a3=(BRID DO. -1 semi i, Di SS semi, 0.3. -4 0 
km b2=a3fce_p,27 机 splayfb23; 
返回 的 结果 为 : 
ans (3xl)=3 double elements CotmptexX {24 bytesS)] = 
站 
3.142 
- 
io 作为 多 返回 值 的 谓 煞 调用 时 的 分 陋 符 〔placeholder)， 例 如 : 


Mm x us, vi svdfx, To,u,s,v 会 返回 三 个 值 us, v， 











”jj28。 





8.3.3 访问 库 函 数 
1. initM( ) 和 exitMI ) 


在 使 用 Matrix<LIB> 中 的 库 函 数 前 ， 必 须 调用 initM( ) 以 初始 化 应 用 程序 。 结 束 应 用 程序 
及 ， 使 用 exitM( ) 以 结束 库 调 用 。 调 用 形式 为 : 
initMHMatecom_VERSION)， YY 
本 8 应 用 程序 代码 
eXitMEC 7 
其 沾 ，Matcom_VERSION 是 一 个 在 matlibh 中 定义 的 常量 ， 以 确保 动态 链接 库 与 matlib.h 对 


Da 








2. 函数 参考 使 用 方法 


在 Mideva 安装 日 录 的 doc 子 日 录 下 ， 有 个 独立 的 名 称 为 fefguide.pdf 的 文件 ， 里 而 有 明 
数 的 使 用 方法 ， 如 动能 描述 、 输 入 /输出 参数 个 数 和 类 型 等 。 
例如 ，MATLAB 中 的 两 数 诛 型 为 ，fnnction y=detfx)。 
它 在 Matrix<LIB> 中 的 函数 怕 型 为 : Mm det(cMm x)。 
可 以 按 下 列 形式 调用 : 
Mm x=magicfS)， Y; 
一 GE 
CE 


3， 多 输出 函数 调用 
设 rtht ) 为 一 个 多 输出 函数 ， 一 般 情况 下 ， 允 输出 函数 时 MATLAB 冰 数 原型 和 C++ 头 六 
件 的 国 数 原型 为 ; 


钨 mrfile style used in the Referenee 人 uide tbnetton [nn 也 eta]=rth(x) 





funetion [nr theta]=rthfx); 


ADC+H hearleT 
Mm rithfMm x, 0, kmk T Mm 区 thetah; 


彤 妆 ++ ealiing convention 
妇 htX， iD, m theta); 
以 计算 拭 阵 的 特征 根 的 函数 eig( ) 为 例 ， 它 在 C++ 工程 中 的 调用 形式 为 : 

Im [ YY， 
X=wWilkinsert 7 和 
全 [区 (tf 1 DY, 昌 ); 
HisP[TMHejgernvectots are: 放 ， 
机 SP1ayfwJ5 
dispfTMICeigenvalues are: 5 

出 spiay(9); 


* 二 29 














4. 可 变 参 数 个 数 的 函数 调用 规则 


一 些 男 数 允 许可 变 人 参数 个 数 的 图 数 调 用 , 原型 中 一 般 以 varargin 作为 最 后 一 个 输入 参数 。 
为 了 调用 此 关 哨 闭 ， 所 有 的 输入 参数 必须 用 CEL。 例 如 ，Pplaot( ) 函 数 的 原型 为 ; 
KM DELLI pottekMnm varaginty; 
在 C++ 中 ， 调 用 形式 为 : 
km ti2i t2=linspacelO, bi)i 
plot((CLI Sin TMCY 


8.3.4 和 矩 阵 VO 


Matrix<LIB> 提 供 了 案 种 方式 执行 矩阵 TO 操作 。 它 们 是 霄 数 loadf ) 利 savef )、 重 载 的 
“stdio.h” 中 的 函数 。 此 外 ， 还 有 一 些 特征 以 方便 按 希 望 的 格式 显示 一 个 管 阵 。 

















1. loadf ] 和 savel ) 


loadf ) 和 savet ) 表 数 分 别 用 来 从 二 值 的 矩阵 文件 中 读 入 或 癌 二 值 的 矩阵 文件 存储 。loaq( } 
和 savet ) 孙 数 的 语法 为 : 
Saveffilename(CLEmatDOy tnati， .7 
loadfTMC data0 0CLOmatO), mat1， .人 ， 
可 见 ， 二 者 都 是 可 变 输入 参数 的 丙 数 ， 也 就 是 对 需要 向 MAT 文件 中 存储 或 者 从 MAT 文 
件 中 该 取 的 变量 数 昌 没有 限制 。 其 中 ，fename 是 一 个 包含 字符 串 拖 阵 的 生 阵 变量 。 如 果 它 
是 一 个 指向 字符 捉 的 指针 ， 则 需要 用 TMI{ ) 进行 转换 ， 例 训 : 
SavefTMIedatao”)CLImatoj mat]， .1 

















2. 文件 输入 /输出 例 程 


“stdioh* 中 的 TO 责 数 被 重 载 以 便 按 收 矢 阵 变量 。 下 面 通 过 一 个 例子 米 说 明 , 它 将 a 的 仁 
与 入 区 件 
Mnm e; 
=Tandf 1 RS 
foepenfCTM(ligl TMCw “73 
fprintf 让 QTMN 各 名 (LI 
让 losed6d)， 














口 


3， 按 格 式 显 示 短 阵 变 章 


有 几 个 逊 数 用 于 显示 矩阵 变 基 ，disp( 显 示 广 的 值 ， 击 display(Co) 显 示 x 的 值 和 大 小 、 类 
型 等 信息 .格式 化 函数 fermat( ) 可 以 指定 显示 十 进 制 数字 时 位 数 ,默认 位 是 formatCTM( short 
显示 4 位 数字 ， 而 format(TM(“iong' 则 显示 12 位 数字 。 

4, 区) 和 和 if》 

可 以 通过 mr) 利 .if 逐个 地 从 矩阵 中 提取 出 元 素 ， 然 后 单独 显 泵 。 

















二 3 人。 


8.3.5 图 形 函 数 


Matrix<LIB> 提 供 了 丰富 的 区 像 和 图 形 函 数 ,， 请 参见 Matrix<LIB> 参 考 手册 中 的 以 上 几 个 
部 分 ; 

sa 二 维 图 形 绘制 ; 

as 三维 图 形 综 制 ; 

e 定制 绘图 函数 plot( ); 

as 色彩 函数 ; 

。 用 户 接口 对 话 杠 ; 

es 图 像 函数 句柄 。 

它们 都 可 以 在 MEFC 工程 中 使 用 ， 生 成 独立 的 可 执行 文件 或 者 动态 链接 库 。 





1. 图 形 函 数 调 用 

许 才 图 形 函 数 都 接收 可 变数 目的 输入 参数 ， 因 此 常用 到 CL( )。 详 见 前 文 “ 可 变 参 数 个 数 
的 函数 调用 规则 ”。 

2. 窗 只 绘图 

可 以 将 图 形 显示 定位 到 一 个 已 经 存在 的 实 口 中 , 这 时 需 调 用 winaxes( ) 函 数 . 它 的 原型 是 ; 


Min DLLI wirtaxesfvoid #winparehtty; 
其 中 ，winparent 为 窗口 句柄 ， 返 回 值 为 Mm 类 型 的 变量 ， 例如; 
Mm plothandie = winaxes(m_PMainYWnaq->rm_hwWand); # 在 MEC 窗口 句 梢 创建 举 标 轴 





为 了 在 窗口 中 定位 图 形 ， 可 以 使 用 RealPosition 属性 。 它 接收 一 个 4 元素 的 同 量 [left top 
width heightl， 这 4 个 值 都 以 像素 为 单位 。 
Rom pos; 
Mm plothandle=winaxesfm_ 上 Wndhi 
bos=(BRII00) 100. 400. 200); 
settpiothandle, TM(C RealPosition "Pos 轨 
当 裤 口中 只 有 … - 幅 图 形 时 ， 可 以 简单 地 通过 axisposition( ) 函 数 ， 而 不 用 设 宣 RealPosition 
RMm pos; 
Mn plothandle= winaxesfm_hynd); 
axespositionf10,.10,400.200) 
也 可 以 向 同一 个 窗口 绘制 多 个 图 形 ， 例 站 
fm pes; 
mh1=winaxesfT 了 nd); 
axesposition(20, 20, 200, 200): 





contourfcILInadamard(]6 有 DJ 


Mim h2=inaxesfm_hyynd); 
axesposition(240, 240, 200. 200》; 


plet(CLImagief50)])]; 
*， 起 1。 


3. 隐藏 图 形 菜单 


当 不 是 向 Windows 窗口 而 是 向 图 形 自 己 的 窗口 ， 即 没有 使 用 winaxes( ) 函 数 时， 图形 会 
出 现 自己 的 “Figure” 菜 单 ， 如 图 8-1 所 示 。 





8-1 带 有 菜单 的 窗口 绘图 


为 了 隐藏 窗口 菜单 ， 可 以 设置 图 形 的 MenuBar 属性 为 “None”。 为 了 隐藏 About 菜单 
项 ， 可 以 设置 图 形 的 MenuAbonut 属性 为 “off”， 即 : 
set(gcf( ), TM("MenuAbout"), TM("off )); 


set(gcf( ), TM("MenuBar"), TM("None )); 
隐藏 了 窗口 菜单 的 窗口 如 图 8-2 所 示 ， 它 已 经 去 掉 了 窗口 菜单 。 


4. 改变 窗口 的 图 标 


每 个 生成 的 窗口 都 有 自己 的 图 标 ， 如 图 8-1 所 示 ， 它 是 默认 的 图 标 。 因 为 Matrix<LIB> 
实际 上 是 MidevayVMatcom 的 内 核 ， 所 以 默认 的 图 标 是 Mideva 应 用 程序 的 图 标 。 当 然 也 可 以 
通过 设置 窗口 的 IonFile 属性 来 改变 图 形 窗口 的 图 标 。 

通过 Windows 搜索 MATLAB 的 图 标 文 件 MATLAB.ico， 并 将 它 复制 到 应 用 程序 所 在 的 目 
录 ， 然 后 设置 IconFile 属性 : 

set(gcf( ),TM( "IconFile"), TM("MATLAB.ico )); 
改变 了 窗口 图 标的 窗口 如 图 8-2 所 示 ， 窗 口 图 标 已 经 改 为 MATLAB 的 图 标 。 





图 8-2 ”隐藏 了 菜单 的 窗口 绘图 
5. 强制 绘图 函数 
默认 情况 下 ， 所 有 的 图 形 输出 时 会 被 缓冲 而 不 是 立即 输出 。 如 果 需 要 立即 绘图 ， 可 以 使 
sa 32m 





用 强制 绘图 冰 数 drawmowf )。 


8.4 混合 编程 实例 


为 介绍 Matrix<LIB> 在 Visual C++ 工程 的 应 用 ， 下 面 道 过 两 个 兵 体 的 实例 来 进行 说 明 。 
一 个 是 Win32.Console Application， 另 一 个 是 利用 MFC 的 多 文档 应 用 (MDT 应 用 程序 。 它 
们 涵盖 了 本 章 介绍 的 绝 人 部 分 内 容 。 
【 例 8-1] 利用 Visual C++ 建立 个 Win32 Consele Application。 它 主要 用 来 求解 如 下 线 
性 系统 方程 的 解 ， 并 穿插 了 本 章 的 … 些 细节 内 容 。 
3a+b+7yc= 7 
1 所 +4b+6c=3 
9a+2b=-20 


具体 包含 姑 下 步 又 ， 

{1)》 启动 Wisual C++， 建 立 一 个 新 工程 ， 选 择 Win32 Console Application， 工 程 名 为 
MatrixLIB， 在 “Step1of1” 选 择 “A simple application”， 其 余 各 项 采用 默认 设置 。 

《2》 使 用 库 的 头 文件 matlibh。 在 MatrixLIB.cpp 文件 中 加 入 机 nclude <matlib.h>， 并 同时 
告诉 编译 器 文件 matlibh 所 在 的 路 径 ， 即 通过 向 菜单 项 “Project / Settings / C，C++ / 
Preprocesser / Additional include subdirectories” 添 加 “cnmatcom4sSib” 来 完成 此 项 工作 。 

3) 添加 库 文 件 ， 在 Visual C++ 中 利用 菜单 命令 “Projecet/Add to Project / Files ”将 
vd4500vlib 加 入 到 C++ 工程 中 。v4S00vlib 位 于 cmatcom4sMib 目 订 下 。 

(4) 添加 必须 的 源 代 码 。 在 maint ) 表 数 中 添加 以 下 代码 ; 

几 MatrixLIB-cpp : Defines 由 e entry point for the consoie applacation， 
册 
折 nelude "stdatxh” 








inelude <mmatlib.h> 


int maintint argc. char+ argv[]) 
{ 
initM(Matcom_VERSION): 1 初始 化 类 库 


Mm ai /初始 化 矩阵 变量 

Mrm hh: 

KM X: 

a=zerosf3 3) 1 锐 矩 阵 变 量 赋 补 值 
ai=3， an],2) 一 1 at 习 =7 
aTf2,1 二 11: af(2.2)=4， ar(2,3)=0， 
af(3,1)=9， arf3,2i 天 2 af(3.3)=0; 
b=(BRI7 setmni, 3， seirli, -20》， 


则 ipPlay(aji 
"133。 








“ 134 。 


printtf Am ); 

isplayfb); 

x=rmmidivideta,py 求解 线性 系统 方程 
形 出 Splay [长 于 


形 Ponttf na" ); 


tor (int i=j;i<=x.rowSf 7) 十) 8 显示 解 问 量 


for fat j=]j<=XColst );H+) 
Printff 区 3, 缉 由 = 和 上 .6 ,TO 

} 

Drintt wm 


double *a_v=(double*r )》 imallocfs*sizeofdouble 让 
Mm a2=(BR(1)1, 3, 5.4.0. -0  A 根 役 a 是 - :个 512Xx1 的 矩阵 
InEICEY(a_ Ya2.addt ) ,12+Si7eofttqouble3]1 


jl 以 下 请 注意 dMml ) 和 Mnmt ) 定 义 变 量 的 细微 区间 
dMmn 0 

Y= 二 .5; 

iisplayfy 


RMm 72)， 
y2=T.3; 
displayfy2)， 


# 将 字符 申 转换 为 字符 串 计 阵 
MTm xz2， 

X2=TMI7This Sentenee 8 false 人 
KaLSetstrf13， 

dsPIXZ) 


# 库 各 量 用 法 
Mr a3=( 呈 及 人 ,站 , -1，settri ij Bi 5 seini, 0.3,，-4, 0); 


-displayfa3hs 


int 六 W 一 3.Eetdirmst 和 
出 spff#w); 

Mrm bh2=a3fe_p,23; 

出 sblayfb2y 


/绘图 
Mnm t2; t2=linspace(0, 2*#pi); 


plot((CL(t2), sin(t2),TM( #”))); 
exitM( ); /退出 Matrix<LIB> 类 库 
retum 0U; 

} 


按 F7 键 进行 编译 后 ， 按 FS 键 运 行 。 运 行 结果 如 图 8-3 和 图 8-4 所 示 ， 


诊 3Fiogoure 工 
Ele Edit Control windows About 








图 8-3 ” 运 行 结 果 





图 8-4 ”运行 结果 


【 例 8-2】 利 用 Visual C++ 建立 一 个 基于 MFC 的 多 文档 应 用 程序 。 具 体 步 骤 如 下 : 


(1) 启动 Visual C++， 建 立 一 个 新 工程 ， 选 择 MFC AppWizard(exe)， 


[ 程 名 为 
33 5 


MatrixLibMDI。 在 “Step 1 of 1” 选 择 “Multiple Documents”， 其 余 各 项 采用 默认 设置 。 

《2) 使 用 库 的 头 文件 matlib.h。 按 例 8-1 的 第 2 步 进行 相 同 设置 。 

(3) 添加 库 文 件 。 按 例 8-1 的 第 3 步 进行 相同 设置 。 

(4) 添加 必须 的 源 代 码 。 

中 在 视图 中 添加 bool 类 型 的 public 成 员 变量 init， 方 法 是 在 Workspace 中 单 击 ClassView 
选项 卡 ， 选 中 CMatrixLibMDIView， 同 时 单 击 右键 ， 选 择 “Add Member Variable”， 出 现 添 
加 成 员 变 量 对 话 框 ， 如 图 8-5 所 示 。 





图 8-5 视图 类 中 添加 成 员 变 量 对 话 杠 


@) 在 CMatrixLibMDIView 的 构造 函数 中 初始 化 init; 
CMatrixLibMDIView::CMatrixLibMDIView( ) 
{ 
/TODO: add construction code here 
init=false; 
} 
G@) 通过 Windows 搜索 MATLAB 的 图 标 文 件 MAITLAB.ico， 并 将 它 复 制 到 应 用 程序 押 在 
的 目录 。 
则 在 Ondraw() 函 数 中 添加 如 下 代码 ; 
void CMatrixLibMDIView::OnDraw(CDC*# pDC) 
{ 
CMatrixLibMDIDoc*x pDoc = GetDocument( ); 
ASSERT_VALID(pDoc); 
/TODO: add draw code for native data here 


(nit) 

{ 
initM(Matcom_VERSION); 
Mnm ti; 
t=linspace(0,4*pi); 
plot((CL(b,sin(,TM( "Tr*”))); 
hold(TM("on")); /准备 画 余弦 曲线 
plot((CL(b,cos(D,TM("b- ))); /指定 画 线 的 颜色 
title((CLITM("Random plot")))); 
xlabel((CLITM("This is the x axis")))); /标注 坐标 轴 
ylabel((CLOCTM( This is the y axis”))))， 


e 36。 


set(gcf( ),(CLITM("Color )),TM("white"))); 
Set(gcf( ),(CLCTM( "Box )),TM( "on ))); 
set(gcf( ), TM( "MenuAbout"), TM("off )); 
set(gcf( ),TM( "MenuBar ), TM("None )); 
/set(gcf( ),TM( "IconFile"), TM("MATLAB.ico")); 


init=true; 
} 
drawnow( ); /开始 画图 
exitM( ); 
} 


编译 后 运行 ， 会 出 现 如 图 8-6 所 示 的 结果 。 注意: 图 形 窗口 的 图 标 已 经 转换 为 MATLAB 
的 图 标 。 





图 8-6 ”运行 结果 
有 时 , 应 用 程序 需要 将 生成 的 图 形 在 Windows 的 客户 区 显示 。 此 时 , 可 以 通过 对 Ondraw( ) 
函数 中 的 代码 进行 简单 修改 ， 即 增加 以 下 两 条 语句 : 
Mm h=winaxes(m_hWand); /在 MEFC 窗口 句柄 创建 坐标 轴 
axesposition(10, 10, 100, 90); /定义 坐标 轴 在 窗口 中 的 位 置 


修改 后 的 整个 Ondraw( ) 函 数列 在 下 面 。 此 时 , 重新 编译 后 运行 , 实验 结果 如 图 8-7 所 未 。 








8-7 窗口 客户 区 绘图 


2137“ 





138。 


void CMatixLibMDTView:DOnDraw(CDC+ PDTC) 
{ 
人 MatrixLibMDJIDocr+ PDoc = GetPocumentt 小 
屿 SS 已 RT_ VALIDIPDech 
fTODOD' add draw code for native data here 


计 (linib 
{ 
initM(Matcom_VERSION， AMatrix<LIB> 初 始 化 


Mim a,b; 

a=randf3); b=zeros(3, 上 7) 

b-Tf1 ,1)=33 br2.5=-1: bt3,1)=3; 
disPlayfday}; 

出 splay{fb); 


Ifm x; 


X=TMI This sentence is false， 六 























出 SPlay(xJi 

RMmn h = winaxesfrmr_hWnd); Fr 在 MEFC 窗口 句 帆 创建 坐标 铀 
axeshosition(10,10,100.90); 8# 定 尺 坐 标 轴 在 窗口 中 世 置 
km 十 

t=lingspacetO, 4*Pi); 

Pilot(CLD,sinttTMCTY f 男 止 弦 曲 线 

hotdtTM( "on # 寻 免 屏 幕 重 绘 操作 

1 谁 备 丽 余 纺 曲 线 


plot((CLIbcos(D, IMDb- 


ji 标注 学 标 轴 

titlef(CLOIMK Random Piot 
xlabelfCLITMI This is the x axXis” 入 
ylabel((CLITMI "This 谁 the y axis”])] 


ff 设置 绘图 区 局 性 
setfh CLIITMC"Colot 7 TMO white 7 入 
setfhKCLITMOBox DTMIC DT 3 


init=tmue; 


} 





drawmowf ); 1 开始 画图 
XitMI( )， 7P 民 出 Matrix<LIB> 
} 


8.3 MATLAB 数学 库 


8.5.{ 简介 


除了 MathTools 公司 的 Mideva 提供 了 数学 库 Matrix<LIB>， 可 以 生成 腊 离 MATLAB 环 
境 的 独立 应 用 程序 外 , MATLAB 自 带 了 C++ 的 数学 和 图 形 库 。 MATLAB 的 数学 库 包 含 了 400 
多 个 常用 的 MATLAB 函数 ， 并 且 其 使 用 习 民 和 MATLAB 函数 的 使 用 习 慑 极其 相似 。 对 于 
MATLABH 的 使 用 者 而 言 ， 采 用 MATLAB 自 带 的 C++ 数学 库 ， 也 可 以 使 应 用 程序 完全 脱离 
MATLAE 的 解释 环境 。 对 于 C++ 的 种 序 开发 者 ,采用 C++ 的 数学 库 则 可 以 利用 已 有 的 矩阵 运 
算 的 数学 库 函 数 ， 加 快 程序 的 开发 进度 。 此 外 ， 与 MAILAB 引擎 应 用 程序 相 比 ， 除 了 训 完 
全 脱离 MATLAB 环境 运行 外 , 调用 MATLAB 的 数学 库 和 图 形 库 还 具有 执行 速度 快 和 内 存 需 






































既 “不 能 调用 图 形 名 柄 系统 的 闲 数 ; 

交 不 能 调用 MATILAB 工具 箱 的 丽 数 ， 

盖 有 用户 不 能 够 在 基于 MATLAB 数学 库 和 图 形 库 的 应 用 程序 中 使 用 MATLAB 的 函数 

evalf ) 和 记 Pputf ); 

> MAILAB 中 的 一 些 方法 在 C/C++ 中 不 提供 支持 ， 例 如 “:” 和 “[]?， 

MATLAB 提供 的 C++ 数学 库 放 在 MATLAB 根 日 录 的 extern 子 日 录 予 ,其 中 include 目录 
包含 了 开 上 故 MAILAB C++ 数学 冰 数 库 应 用 程序 所 必需 的 头 文 件 和 Visual C++ 编译 所 必需 的 
定 习 文件 , 而 include 下 的 cpp 子 目录 则 包含 了 一 些 建立 独立 可 执行 的 C++ 应 用 程序 所 必需 的 
头 文 件 ，。 这 些 头 文件 和 定义 文件 归纳 见 表 8-1。 














表 8-1 MATLAB 自 带 的 C++ 数学 库 头 文件 和 定 兴 文件 
说 明 

包 售 了 所 有 MATLAB 内 建 数 学 函数 驻 语 言 实现 的 函数 定 尽 

和 包 省 了 MATLAB 以 M 文件 形式 提供 的 车 学 函数 @ 语言 实现 揭 函 数 定义 
MATILAB 的 忆 数学 函数 库 的 头 文件 
定 必 了 mxaArmary 结 析 体 以 及 相 诬 的 访问 函数 
包含 了 从 MAT 文件 动态 链接 库 中 输出 的 函数 各 ， 出 于 Visnal C++ 
包含 了 从 MAILAB 内 建 数学 函 散 动态 链接 库 输 出 的 图 数 名 ， 可 用 十 Visual C++ 纲 译 器 
包含 了 从 MATILAB 以 M 文件 形式 数学 冰 数 动态 链接 库 中 输出 的 函数 名 ， 可 改 于 Visual C++ 
包 人 疹子 从 动态 连接 库 libmx.dll 中 输出 的 函 儿 名， 可 用 于 Wisual C++ 
程序 必 肛 包 含 的 头 文件 

包 售 了 C++ 编 详 咒 的 情 息 

包 售 数值 变量 的 声明 












六 人 忻 多 
libmauh.h 


LHbimmifile.n 
matiab.h 


libmiat.lib 













































libmatlb,1ib 





























包含 C++ 应 月 





librmx.lib 
rmatjab .bpp 
ITnatihywork. 
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值得 说 明 的 是 ， MAILAB 提供 的 C++ 数学 库 与 MATLAB C 数学 库 类 似 ， 只 有 MATLAB 
阵列 一 种 数据 类 型 。MATLAB C++ 数学 库 中 用 mwArray 类 封装 了 MATLAB 阵列 的 数据 和 基 
本 操作 函 数 ， 而 MATLAB 对 和 矩阵 进行 操作 的 函数 ，MATLAB C++ 数学 库 通 过 提供 外 部 函数 
的 方式 供用 户 调用 。 

8.5.2 Visual C++ 工程 中 调用 MATLAB 数学 函数 库 的 环境 设置 


在 Visual C++ 集成 开发 环境 下 ， 使 用 MATLAB 的 C++ 数学 函数 库 时 必须 对 集成 开发 环 
境 进 行 配置 。 配 置 过 程 与 第 6 章 通过 MAT 文件 实现 数据 共享 时 的 环境 配置 相似 ， 首 先 需要 
加 入 静态 链接 库 ， 然 后 设置 CUC++ 选 项 卡 中 的 选项 ， 并 在 工程 中 包含 相应 的 头 文件 。 具 体 的 
配置 过 程 如 下 : 


1， 需 要 加 入 或 忽略 的 静态 链接 库 


对 于 使 用 MATLAB C++ 数学 库 的 Visual C++ 工程 人 员 来 说 ，Visual C++ 工程 设置 中 需要 
加 入 的 静态 链接 库 有 : libmatpm.lib、libmx.lib、1libmatlb.lib、1libmat.lib、libmmfile.lib、sgl.lib 
和 libmwsglm.lib。 设 置 方法 是 在 菜单 “Project” 中 选择 “Setting” 子 菜单 ， 在 “Link” 选 项 
卡 中 添加 上 述 静 态 库 文 件 ， 每 个 库 文 件 以 空格 隔 开 ， 如 图 8-8 所 示 。 

其 中 ，sglLlib 和 libmwsglm.lib 只 有 在 用 到 MATLAB C++ 图 形 库 的 时 候 才 需要 在 Visual 
C++ 的 工程 设置 中 添加 这 两 个 静态 链接 库 。 另 外 ， 在 Visual C++ 工程 中 需要 忽略 Visual C++ 
的 MSVCRT 静态 库 。 


Preject 





了 EGG 
上 广 工艺 


Debugimatlab_Cplus.exe 
libmatpm.lib libmmfile.lib libmatib.lib libmat.lib libmx.lib 


邓 则 


kernel32.lib user32.lib gdi32.lib winspool.lib 
comdlg32.lib advapi32.lib shell32.lib ole32.lib 
oleaut32.lib uuid.lib odbc32.lib odbccp32.lib 


图 8-8 使 用 MATLAB C++ 数学 库 需 要 加 入 的 静态 链接 库 
2. 设置 C/C++ 选 项 卡 的 选项 


在 Visual C++ 菜单 “Project” 中 选择 “Settings” 子 菜单 , 在 “C/C++ ”选项 卡 的 “Category” 
下 拉 列 表 框 中 选择 “Code Generation”， 将 “Use run-time library” 选 项 设 为 “Multithreaded 
DLL”， 如 图 8-9 所 示 。 

同时 ， 在 “Category” 列 表 框 中 选择 “Proprocessor”， 并 在 “Preprocessor definitions” 选 
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项 中 增加 如 下 内 容 : MSVC，MSWIND，IBMPC，D_STDC_，_AFXDLL。 注意 : 这 几 个 符 
号 之 间 用 去 号 分 隔 。 


3 在 工程 中 包含 相应 的 头 文件 


在 Visual C++ 工程 中 不 用 MATLAB C++ 图 形 库 的 时 候 , 只 需 包含 头 文件 matlab.hpp 即 可 ; 
如 果 要 用 到 MATLAB C++ 图 形 库 ， 则 需要 包含 头 文件 matlab.hpp 和 libmwsglm.h。 


[molooo MDTW371GmIGXD10d1D WIN3z/D 了 
EDpEBuG"/D "CONSOLE"1D "MBCS" 
jjPFp"Debugimatlab_Cplus.pch'" YX Fo"DebugP 





图 8-9 改变 mn-time library 的 设置 
8.6 小 结 


本 章 介绍 了 利用 Mideva 工具 包含 的 Matrix<LIB> 数 学 库 与 Visual C++ 进行 混合 编程 的 方 
法 ， 包 括 Matrix<LIB> 的 安装 、 语 法 和 Visual C++ 集成 开发 环境 的 配置 ， 并 通过 实例 说 明了 
如 何 利 用 Matrix<LIB> 数 学 库 生成 可 脱离 MATLAB 运行 环境 的 独立 应 用 程序 .对 于 MATILAB 
自 带 的 C++ 数学 库 ， 也 对 其 进行 了 简要 介绍 。 对 于 二 者 ， 可 以 在 工程 实际 中 灵活 应 用 ， 但 建 
议 使 用 Matrix<LIB>。 
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第 9 章 通过 MATLAB Add-in 实现 混合 编程 


9.1 MATLAB Add-in 简介 


MATLAB Add-in 是 MATLAB 6.0 以 后 厂 本 引入 的 新 工具 ， 它 可 以 方便 地 生成 独立 应 用 

程序 ， 也 可 以 将 得 到 的 代码 髓 入 到 其 他 应 用 程序 中 。 得 是 ， 最 新 的 MATLAB 7.0 以 后 版 本 不 

支持 add-in。 考 虑 到 仍 有 不 少 恋 者 使 用 MATLAB 6.0 或 65 版本。 本 章 对 MATLAB Add-in 

仍 进 行 简单 的 介绍 。 

MathTools 被 MathWorks 公司 收购 后 ， 将 Wisual Matcom 集成 到 了 MATLAE 60 版 本 中 。 

此 ，MATLAB 6.0 以 后 版 本 对 其 Compiler 作 了 较 大 的 改进 ， 支 持 更 多 的 数据 类 型 ， 共 有 更 

的 优化 功能 ,更 重要 的 是 MATLAB Add-in 提供 了 一 个 MATLAB 和 Visual C++ 集成 开发 环 

IDE 直接 集成 的 途径 。MATLAB Add-in 天 大 简化 M 文 件 在 Visual C++ 环境 下 的 使 用 ， 它 

以 自动 集成 M 文件 到 Wisual C++ 的 工程 中 ， 即 Add-in 与 Wisual C++ 环境 是 全 储 成 的 。 
MATLAB Add-in 具有 以 下 新 的 特征 ; 

快速 集成 M 文件 到 C++ 工程 中 ， 创 建 独立 的 CAC++ 应 用 程序 或 CMEX DLL 

通过 M 艾 件 创建 共享 库 或 MEX 文件 ; 

内 售 Wisual Matrix Viewer， 调 试 过 程 中 可 以 查看 矩阵 变量 的 值 ; 

直接 修改 M 源 文 件 而 不 是 修改 生成 的 CAC++ 文 件 ; 

方便 快捷 地 打包 度 几 程序 等 。 

但 是 ， 请 半 意 MAITLAB Add-in 日 前 并 不 提供 对 Wisual C++ 7.0 版 本 的 支持 。 








“了 

















革 溃 和 谢 四 
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9.2 MATLAB Add-in 安装 和 在 Visual C++ 中 的 环境 设置 


当 安装 好 MATLAB 6.5 以 后 ， 启 动 MATLAB 6.5， 然 后 在 MATLAB 命令 行 中 输入 以 下 
羡 令 : 
> ITIeX 一 Setu 
会 出 现 以 下 提示 ， 它 将 配置 MEX 和 独立 应 用 程序 使 用 Visual C++ 为 默认 的 编译 赣 ， 并 
安装 MATLAB Add-in 所 需 MATLAB Compiler 和 CAC++ 数 学 库 文件 到 MSVisual C++ 目录 。 


Please choese YouT compiler for building external interface (MEX) 三 les: 
Would you 1]jkKe mex to locate installed cnompilers [yY]Am2 y 


Select aeompiler: 

[HH Digital Visual Fortran version 6.0 in CAProgram FilesMicrosoft Visual Stndio 
[2] Lee C Yersion 2.4 jinCAMLATTLAB7YASySce 

[3 Microsoft Visual CC++ vetsion 5.0 in CAProgranma Files\Microsoft Visbnal Studio 
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[Oo] None 


Cotmpiler: 3 
输入 “3”， 选 择 Microsoft Visual C++ 6.0 作为 外 部 编译 器 。 然 后 ， 系 统 会 出 现 以 下 提示 ， 
要 求 验证 系统 自动 搜索 到 的 Visual C++ 的 路 和 从 是 侣 正确 。 


Please verify your choices: 











Compiler: Microsoft Visual C++ .0 
Location: 马 AProgram Filesvticrosoft VisUal Studic 


各 Te these coOrrect2f[y]Aoy 
输入 “y” 进 行 确认 ， 系 统 会 出 现 以 下 提示 : 
Tiy tuUbpdate options file: 人 ADocUments and Settings 和 dmninistratot 和 Applicatiot 
DatalviathwWeorksWMATLABYR14Amexopts.bat 
From template: CMVMATLAB7ARBINAW JIN32umexoptsvmswisual 人 十 +6Uopts.bat 

















one .，. 
这 时 ， 针 对 Visual Studio 的 MATLAB Add-im 已 自动 安装 到 系统 上 上。 然而， 还 需要 进行 
以 下 儿 步 ， 以 确保 能 在 Visual C++ 中 使 用 MATLAB Add-in。 
在 MAILAB 环境 下 运行 以 下 命令 : 


>>cdtprefdjry; 














>>TnCcsawvepath; 

它 将 保存 当前 MATLAB 厂 径 mccpath 文件 到 用 户 路 径 prefdir， 因 为 MATLAB Add-in 脱 
高 MAILAB 运行 ， 否 则 它 无 法 知道 MATLAB 路 径 。 

在 MSVisual C++ 环境 中 配置 MATLAB Add-in， 方 法 是 : 从 菜单 “Tools -> Customaize” 
选择 “Add-ins and Macro Files” 选 项 卡 ， 选 中 “MATLAB Add-in”， 单 击 “Close”。Visual C++ 
工具 磋 出 静 MATLAB Add-in 图 标 〈 如 图 91 所 示 )， 以 后 每 次 慰 动 Wisual CH+HH， 自 动 加 载 
MATLAHB Add-in。 

其 实 , 当 在 机 器 上 安装 了 Mideva 后 , 在 Visual C++ 环境 下 进行 配置 , 则 可 以 在 Visual C++ 
的 工具 栏 中 见 到 Visual Matcom 的 图 标 ， 如 图 92 所 示 。 具 恒 的 配置 方法 如 下 : 




















Jiatlab 立 dd-i 


| 王 se 本 | 惕 至 so 


图 9-1 工具 栏 中 MATLAB Add-in 图 标 独 2 工 共 栏 中 Wisnoal Matcom 图 标 


。 1q3。 


(1) 启动 Visual C++; 

(2) 从 Visual C++ 菜单 “Tools” 中 ,选择 “Customize”， 再 选择 “Add-in and Macro Files” 
选项 卡 。 

(3 ) 单 击 ^Browse”， 在 “Browse for Macro File or Add-in ”中 将 文件 类 型 选择 为 “Add-ins 


(.dlD)”， 将 查找 范围 转换 为 CN\Matcom45S\bin 目录 下 ,选择 mvcide.dll1， 然 后 单 击 打开 按钮 (如 
图 9-3 所 示 ) 。 





图 9-3 Visual C++ 工具 栏 中 配置 Visual Matcom 图 标 对 话 框 之 一 
(4) 出 现 如 图 9-4 所 示 的 对 话 框 ， 选 中 “MATLAB Add-in”， 然 后 单 击 “Close” 按 钮 。 





图 9-4 Visual C++ 工具 栏 中 配置 Visual Matcom 图 标 对 话 框 之 一 


很 显然 ，MATLAB Add-in 的 图 标 与 Visual Matcom 的 图 标 很 类 似 ， 只 是 增加 了 打包 独立 
应 用 程序 功能 。 因 此 ， 可 以 说 MATLAB Add-in 实际 上 是 在 MathWorks 收购 MathTools 后 将 
Visual Matcom 集成 到 Visual Studio 的 产物 。 在 后 面 的 实例 中 将 会 发 现 , 通过 MATLAB Add-in 
和 Matcom 将 M 文件 转换 成 的 CCPP 代码 非常 相似 ， 而 且 与 Matrix<LIB> 接 近 。 

当 在 Visual C++ 环境 中 配置 好 MATLAB Add-in 后 ， 如 果 重 新 启动 Visual C++ 建立 一 个 
新 工程 , 则 在 建立 新 工程 的 工程 向 导 中 多 了 一 个 新 的 应 用 程序 向 导 MAILAB Project Wizard 
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(如 图 9-$ 所 示 )。 





1SAPI Extension Wizard 由 民 


Makefile 







RS [exe] 关 贡 9dTOCUTTET winrkEpacE 
oject 
[本 Win32 Application 下 ee 二 二 
一 Win32 Console Application 了 
s%Win32 DynamicLink Library 1 
反 jWin32 Static Library 


别 MFC AppYWizard [d 咱 










图 95 _ Visual C++ 中 新 出 现 的 MATLAB 工程 向 导 


当 需 要 改变 默认 的 编译 器 Visual C++ 为 其 他 的 编译 器 , 如 C++ Builder 时 ， 可 以 按 前 面 所 
述 在 MATLAB 环境 中 重新 运行 mex -setup。 


9.3 ”通过 MATLAB Add-in 生成 独立 应 用 程序 


通过 MATLAB Add-in 可 以 方便 地 生成 独立 应 用 程序 , 但 是 在 使 用 过 程 中 需要 注意 几 点 : 
(1) 添加 到 MSVisual C++ 工程 的 文件 应 当 为 一 个 函数 文件 ， 而 不 能 是 一 个 Script 文件 ， 
否则 会 出 现 错误 提示 “a script M-file cannot be compiled with the current Compiler "。 将 一 个 
Script 文件 转换 为 一 个 函数 文件 的 方法 是 添加 函数 定义 行 和 必要 的 注释 ， 其 中 定义 行 主 要 是 
定义 函数 的 名 称 ， 以 及 输入 /输出 参数 的 数量 和 名 称 ， 而 注释 行 则 是 为 了 增加 函数 体 中 代码 的 
可 读 性 而 加 入 的 说 明 性 文字 。 
(2) 最 好 不 要 修改 生成 的 CC++ 人 代码， 如果 需要 改动 ， 可 以 通过 在 MSVisual C++ 工作 区 
中 直接 修改 M 文件 〈 无 须 在 MATLAB 环境 中 )， 重 新 编译 即 可 。 可 以 通过 在 M 文件 中 设置 
断 点 ， 在 运行 中 通过 Matrix Viewer 观察 MATLAB 变量 的 值 。 
(3) 在 Add-in 所 生成 的 Readme 中 可 以 看 到 如 下 的 语句 ; 
This is the output from running MAITLAB Add-in.Compiler version: 3.0 
mcc -k _ "G:\Visual C++HTESTVTestNew\mcc.mak"” -mm -p -A line:on -g libmmfile.mlib -vh 
"DJNMATLAB6pS\work\myplotm” 
其 中 ，mecec 是 MATLAB 的 编译 器 内 核 ， 它 提供 的 是 一 种 命令 行 的 编译 方式 ， 可 以 指定 
参数 。 通 过 MATLAB Add-in 则 可 以 简化 mcc 的 使 用 ， 避 免 复 杂 的 参数 设置 。 
目前 通过 Add-in 实现 MATLASB 与 Visual C++ 的 混合 编程 也 有 一 定 的 不 足 ， 如 目前 并 不 
支持 所 有 的 MATLAB 的 函数 ， 生 成 的 程序 代码 有 些 复杂 等 。 估 计 MATLAB 6.0 以 后 的 版 本 
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在 这 方面 肯定 有 所 改进 的 。 
9.4 MATLAB Add-in 实例 


本 节 通 过 一 个 实例 来 说 明 MATLAB Add-in 的 应 用 。 它 计算 两 个 向 量 的 卷 积 ， 并 将 结果 
显示 在 MsChart 控件 中 。 两 个 向 量 的 卷 积 操作 如 果 采 用 C 语言 实现 则 编程 比较 麻烦 ， 如 果 采 
用 MAILAB 实现 ， 则 需要 使 用 简单 的 卷 积 函 数 conv( )。 因 此 ， 在 Visual C++ 的 工程 中 ， 可 
以 利用 MATLAB 的 卷 积 函数 conv( ) 来 实现 ， 通 过 MATLAB Add-in 将 其 转换 为 CC++ 代 码 ， 
添加 到 工程 中 。 机 器 上 首先 应 安装 MATLAB R13， 并 支持 C 数学 库 和 compiler。 

(1) 安装 MATLAB Add-in。 

(2) 在 Visual C++ 环境 下 配置 MATLAB Add-in。 

(3) 在 MAILAB 下 ， 编 辑 一 个 简单 的 函数 文件 Myfunc.m， 实 现 两 个 疝 量 的 卷 积 。 其 代 
码 如 下 : 

function out=Myfunc(In1,In2) 
芒 Returns the convolution of vector IN1 and IN2 
out=conv(In1,In2); 

(4) 在 Visual C++ 环境 下 创建 一 个 MEFC AppWizard (exe) 工 程 ， 选 择 生 成 一 个 基于 对 话 
框 的 应 用 程序 , 命名 为 conv。 在 对 话 框 中 添加 一 个 按钮 , 其 ID 为 IDC_BUTTON1, CAPTION 
为 Conv， 并 通过 MFC ClassWizard 添加 按钮 对 应 的 左 键 单 击 响应 事件 CConvDlg::OnConv( )。 

(5) 单 击 菜单 上 的 吉 按钮 ， 按 照 提 示 的 默认 选项 〈 如 图 9-6 所 示 )， 将 MATLAB 文件 
Myfunc.m 添加 到 工程 中 。 这 时 MATLAB Add-in 将 自动 启动 ， 生 成 Myfunc.m 对 应 的 头 文件 
myfunc.h 以 及 C 文件 myfuncc 和 myfunc_main.c。 编 译 完 成 后 ,项 目的 Workspace 栏 如 图 9-7 
所 示 ， 可 以 看 到 添加 的 MATLAB M 文件 和 对 应 生成 的 CC++ 文 件 。 

到 
和 1 project[s) 
3 _]Source Files 


3 _jHeader Files 
站 _]Resource Files 















[TYTETEE TRY xl 3 本 MATLAB Mrfiles 
习 Myfunc.m 
= ;了 MATLAB CIC++ files 
[rainaovs Console 了 EXE 了 ] 居 myfunc.c 
| 习 myfunc_main.c 
厂 Vse Handle 人 Librs 恒 ReadMe.txt 
[Ganerate main 3 External Dependencies 
三 Generate C++ 人 
FF nesc wo _ceaneel | 
站 Fileview 
图 9-6 MATLAB Add-in 工程 设置 对 话 框 岁 9-7 添加 M 文件 后 的 Workspace 区 


这 时 可 以 看 到 工程 生成 了 一 个 文本 文件 mcc-log.txt。 可 见 ，MATLAB Add-in 实际 上 仍然 
是 通过 MCC 完成 的 。MATLAB Add-in 所 用 到 的 编译 器 批 处 理 文 件 compopts.bat， 可 以 在 
Windows 的 DOS 模式 下 通过 type 命令 查看 ， 其 主要 内 容 都 在 文本 文件 mcc-log.txt 中 。 文 本 
文件 mcc-log.txt 的 主要 内 容 列 举 如 下 : 
This is the output from running MATLAB Add-in. 
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---- MCCMEX BEGIN---- 一 ------- 

mecc -长 “DAVisual 辫 ++Cestrnce.mak” -和 -站 -和 line:on -gg 1libmmfilemlib -vh “DWwisu 引 
亿 十 +testMYEDnc.mY 

OILPiler Vetsion: 3.0 

Parsing file "dYWisual 人 C++testmyfunc-m 

【Refereneed from: "Compiler Coentmand Line"， 
Generating file “myfanc.h”， 
Generarine ij "myfunc.e”. 


人 eneratin 名 file "myfunc_main.e”. 


-> Default opthons  Hljename found im CDocuimnents am SettingsvYang 避 aobov 和 PPplication 
DataxMathWorksvATTLABAR13 


-> ptions 晶 le= 人 Documents and SettingsvYang 《jiaobovApplcation 了 DatayviathWorksMATILAB 
13Acormpopts.bat 


-MICCMEX PONE-------…-------- 
打开 生成 的 mmyfunce 文件 ,可 以 看 到 原始 的 M 文件 Myfuncm 的 Myfunc( ),， 经 过 MATLAB 
Add-in 转换 后 ， 其 函数 原型 为 : mxArrayy tnifvyfunc(mxArmay* Imnl, mxArray* In2)。 因 此 使 
用 时 必须 按 mlfMyfunec( ) 的 要 求 进行 接口 。 
《6) 给 对 话 框 的 按钮 添加 必要 的 左 键 单 击 响 应 事件 代码 CConyDilg::OnCony( )。 为 此 ， 
先 要 在 ConvDlg.cpp 文件 开头 添加 必要 的 头 文件 ， 即 添加 以 下 两 行 代码 ， 
拉 nelude "timatlab.h” 
#iticlude "Myfanec.h” 
事件 CConvDlg::DnCony( ) 完 成 两 个 阵 量 的 卷 积 计算 ， 并 将 结果 显示 在 MsChart 控件 中 . 
以 下 侈 列 出 与 MATLAB Add-in 相关 的 向 量 卷 积 计算 源 代 码 ， 其 余 代 码 请 参阅 本 书 光盘 中 的 
内 容 。 




















Yo 这 交 ConvDIg:OnConw ) 


| 
1 TODO': Add youtr control notificakion handler Code here 


HAxl,x2: 和 与 卷 积 的 两 个 向 最 

Arres: 存放 眷 积 的 结果 疝 量 ， 其 长 度 为 (fength(x])+length(x2)-1)=19 
double xl[]=f11.2.3,4.5.6,7.8.9.0]: 

double x2[]=14.5.6.7.4.5.8.9.0.7]; 

douhnle res[19]; 


1 按 mHMYyiunct ) 的 要 求 进行 接 ， 先 生成 所 阵 向 量 ， 初 始 化 
IDXrTaYys In]; 


ImX 丰 ITay# 1: 
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mxXArray*# Out; 
In1=mxCreateDoubleMatrix(1,.10,mxREAL); 
In2=mxCreateDoubleMatrix(1,10,mxREAL); 
memcpy(mxGetPr(n1),x1.10*sizeof(double)); 
memcpy(mxGetPr(n2),x2,10*sizeof(double)); 


/调用 mlfMyfunc( ) 函 数 进行 向 量 卷 积 运算 
Out=mlfMyfunc(In1,In2); 


/得 到 的 结果 矢量 回 送 给 Visual C++ 
memcpy(res,mxGetPr(Out),19*sizeof(double)); 


/释放 临时 变量 

mxDestroyArray(Out); 

mxDestroyArray(In]); 

mxDestroyArray(JIn2); 

四 /将 卷 积 结果 显示 到 Ms Chart 控件 ， 略 


(7) 编译 本 工程 ， 编 译 完成 后 可 以 看 到 左 侧 的 Workspace 区 自动 地 增加 了 一 些 External 
Dependencies 文件 。 它 们 是 本 工程 为 支持 MATLAB Add-in 需要 的 头 文件 ， 包 括 libmatlb.h、 
libmatlbm.h、1libsglh、matrix.h、mex.h 和 matlab.h 等 文件 。 

48) 运行 ， 将 出 现 如 图 9-8 所 示 的 界面 ， 显 示 了 原始 的 两 个 向 量 值 。 单 击 “CONV” 按 
钮 ， 出 现 如 图 9-9 所 示 的 界面 ， 它 同时 显示 了 原始 的 两 个 向 量 及 其 它们 的 卷 积 。 






时 三 大 辆 园区 要 2 下 
人 





图 9-8 程序 运行 启动 界面 ， 显 示 原 始 的 两 个 向 量 
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图 9-9 程序 运行 结果 ， 包 含 原始 的 两 个 向 量 和 它们 的 卷 积 


9.5 小 结 
MATLAB Add-in 提供 了 一 种 实现 MATLAB 和 Visual C++ 混合 编程 的 直接 集成 的 途径 ， 


通过 它 可 以 很 方便 地 生成 MATLAB 和 Visual C++ 的 混合 程序 。 在 图 像 处 理 等 需要 大 量 计算 的 
工程 应 用 场合 有 广泛 的 应 用 价值 。 
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第 10 章 ， MATLAB 和 Delphi 混合 编程 


10.1 Deliphi 开发 环境 介绍 


Delphi 是 著名 的 Borland 公司 《现在 已 和 Inprise 合并 ) 开发 的 可 视 化 软件 开发 工具 .“ 真 
下 的 程序 其 几 己 ， 聪 明 的 程序 员 用 Defiphi”， 这 名 话 是 对 Delphi 最 经 典 、 最 实在 的 评价 。 
Delppi 被 称 为 第 4 代 编 程 语言 ， 它 共有 有 简单、 高效、 功能 强大 的 特点 。 和 Wisual C++ 升 发 环 
壕 相 比 ，Delphi 更 简单 、 易 于 掌握 ， 且 在 功能 上 车 不逊 色 。 和 Visual Basic 相 比 ，Deliphi 则 功 
能 更 强大 、 实 用 。 因 此 ， 可 以 说 Delphi 同时 静 备 了 Visual C++ 功能 强大 和 Wisual Basic 简单 
妃 学 的 特点 。 因 此 ，Delphi 一 直 是 程序 员 喜 爱 的 编程 工具 。 

Delphi 具有 以 下 的 特点 ;基于 窗 体 和 面向 对 象 的 方法 ， 高 速 的 编译 器 ， 强 大 的 数据 库 支 
持 ， 与 Windows 编程 紧密 结合 ， 强 大 而 成 熟 的 组 件 技术 。Delphi 提供 了 各 种 开发 工具 ， 包括 
集成 环境 、 图 像 编 辑 〈Image Editof)， 以 及 各 种 开发 数据 库 的 应 用 程序 ， 旭 Desktop Database 
等 , 此 外 , 还 允许 用 户 挂 接 其 他 的 应 用 程序 开发 工具 , 如 Borland 公司 的 资源 编辑 器 (Resonice 
Workshop )。 

在 Delphi 众多 的 优势 当中 ， 它 在 数据 库 方 面 的 特长 显得 尤为 突出 ; 适用 于 党 种 数据 产 结 
构 ， 从 客户 机 / 服务 器 模式 到 多 层 数 据 结构 模式 : 具有 高 效率 的 数据 库 管理 系统 和 新 一 代 更 
先进 的 数据 库 引 警 ， 提 供 最 新 的 数据 分 析 手 段 和 大 量 的 企业 组 件 ，Delphi 通过 不 断 添 加 和 改 
进 各 种 特性 ， 发 展 介 现在 的 Delphi 8.0 版 本 ， 功 能 十 分 完善 、 强 大 。 本 章 以 日 前 广泛 使 用 的 
Deiphi 6.0 为 基础 ,介绍 MATLAEB 和 Delphi 混合 编程 的 方法 和 技巧 。 本 章 的 读者 对 象 为 具有 
一 定 Delphi 基础 的 开发 者 。 


10.2 ”通过 MATLAB 自动 化 服务 实现 混合 编程 


10.2.1 自动 化 服务 的 实现 方法 


自动 化 服务 器 是 一 种 可 以 由 其 他 应 用 程序 驱动 的 组 件 ， 其 核心 是 包含 一 个 或 才 个 供 其 他 
应 用 程序 创建 和 连接 的 基于 Idispatch 的 接口 。 MATLAB 作为 自动 化 服务 器 时 ， 可 以 被 
Windows 平台 上 和 作 何 可 作为 自动 化 控制 器 的 应 用 程序 使 用 。 通 过 使 用 MATELAB 自动 化 服务 
器 功能 ， 用 户 可 以 在 自己 的 应 用 程序 中 执行 MAILAB 命令 ， 并 从 MATLAB 的 工作 空间 中 获 
取 烤 据 以 上 太 向 MATLAB 输出 数据 ， 将 MATLAB 作为 一 个 自动 化 服务 器 使 用 时 ， 必 须知 道 
MATLAB Activex 对 象 在 系统 注册 表 中 定义 的 名 字 ， 即 ProgID ， 一 般 可 以 使 用 
MATLAB.application 或 者 MATLAB.application.single， 它 们 代表 了 不 同 的 含义 。 当 应 用 程序 
使 用 MATLAB.application 作为 ProgID 启动 MATLAH 自动 化 服务 器 时 ， 表 示 将 MATILAB 所 
动 化 服务 器 作为 一 个 共享 的 服务 器 ， 当 其 他 应 用 程序 以 同 拌 的 ProgID 开启 MATILASB 服务 器 
时 ， 夫 统 将 不 再 另外 初始 化 一 个 服务 器 ， 而 是 使 用 同一 个 服务 器 来 完成 所 有 的 请 求 。 而 当 应 
用 程序 使 用 MATLAB.application.single 作为 ProgID 启动 MATILAB 自动 化 服务 回 时 ， 表 示 将 



































350， 


MATLAB 自动 化 服务 器 作为 一 个 单独 的 服务 器 ， 而 不 与 别 的 应 用 程序 共享 。 此 时 ， 当 其 他 应 
用 程序 以 同样 的 ProgID 开启 MATLAB 服务 器 时 ， 系 统 将 重新 初始 化 一 个 服务 器 。 

通常 ， 客 户 程序 获得 和 控制 服务 器 程序 对 象 的 过 程 如 下 : 

(1) 初始 化 并 创建 自动 化 对 象 ， 获 得 服务 器 程序 的 句柄 ， 将 服务 器 程序 设置 为 该 客户 程 
序 的 一 个 服务 工具 ，MATLAB 提供 一 个 自动 化 对 象 ， 它 的 外 部 名 称 为 MATLAB.Application 。 
例如 ， 要 将 MATLAB 作为 曲线 、 曲 面 显示 的 画板 和 和 矩阵 运算 的 工具 ， 为 了 产生 和 获得 
MATLAB 对 象 ， 在 Delphi 中 用 下 列 语句 实现 : 

MATLAB=CreateOleObject(MATLAB.Application); 


除了 上 述 开启 MATLAB 自动 化 服务 器 的 方法 之 外 ， 还 可 以 在 启动 MATLAB 时 直接 将 
MATLAB 初始 化 为 一 个 自动 化 服务 器 ， 这 只 需 在 启动 MATLAB 时 使 用 参数 “/automation ” 
即 可 。 一 种 方法 是 通过 Winodws 的 “开始 ”菜单 下 的 “运行 ” 子 菜单 ， 弹 出 如 图 10-1 所 示 
的 对 话 框 ， 输 入 “matlab /automation ”;， 另 一 种 方法 是 通过 修改 MATLAB 的 桌面 快捷 方式 ， 
右键 单 击 MATLAB 图 标 ,选择 “属性 ” 将 弹出 如 图 10-2 所 示 的 属性 设置 对 话 框 ,在 “目标 ” 
后 添加 “/automation ”。 





图 10-2 ”属性 设置 对 话 杠 


和 业 








《2》 编 糙 和 操纵 自动 化 对 象 的 属性 和 方法 。 可 编辑 对 象 窗口 的 颜色 和 大 小 及 成 员 数 据 值 ， 
使 用 其 成 员 函 数 ， 输 入 参数 而 输出 经 服务 器 程序 处 理 的 信息 。 例 如 ， 获 得 MATLAB 的 对 象 
后 ， 将 其 窗口 最 小 化 或 最 大 化 的 程序 语句 如 下 : 

MATLARB.MinimizeCommandwindowfy; 
KEATLAB. MaxitnizeCormmmandWindowfy， 

(3) 客户 程序 释放 服务 器 程序 的 对 粤 , 在 Delphi 中 用 下 列 语句 编程 即 可 释放 MATLAB 

对 象 
MATLABOuit; 

MATELAB 自动 化 对 象 的 一 个 主要 函数 是 Execute, 凡 是 在 MATLAB 命令 窗口 可 键入 的 执行 
命令 都 可 用 该 函数 调用 .MATLAB 的 自动 化 对 象 对 数组 的 获取 和 设置 使 用 函数 GetCharArray( )， 
GetFulMatrixf )，GetWorkspaceDataf )，PutCharArray( ), PutFullMiatrex ) 和 PutWorkspaceData 实 
现 。 


10.2.2 ”自动 化 服务 应 用 举例 一 


【 例 10-1】 本 例 将 通过 MATLAB 的 自动 化 服务 实现 与 Delphi 的 温 合 编程 。 源 代码 可 以 
在 配 书 光 和 其 的 sourcecodevexamplel10-! 目录 下 找到 。 





1 编写 MATLAB 孙 数 文件 


首先 在 MATLAB 环境 下 编写 一 个 M 文件 ， 用 来 绘制 某 学 生 的 成 绩 侠 图 。 文 件 名 为 

ddeexamplem， 其 代码 如 下 ， 

function ddeexarmpie0 引 学 生成 绩 镜 图 绘制 程序 

X=[78 83396198]; 

explode=zerQosfSizefX) 3 

fc,offset]j=minftz; 名 求 最 小 值 的 下 标 offset 

explodetoffsetj=1; 名 指定 占 比 例 最 小 的 一 块 和 整个 饼 图 脱离 

h=pietx,explode); 

论 XtODbjs=findobjh Type .ext7); 

oldStr=get(textObjs.{ Sing 1 

Names=f 数学 38 语文 的 ;英语 全 ;物理 98 

SEEXIODbjsi[f String Namesyi 


该 程序 在 MATLAB 环境 下 的 运行 结果 如 图 10-3 所 示 。 
2， 在 Delphi 中 建立 一 个 项 目 来 实现 MATLAB 自动 化 服务 功能 


第 一 步 ， 启动 Delphi 60， 从 “File” 菜 单 中 选择 “New Application” 子 菜单 ， 生 成 一 个 
罕 的 应 用 程序 ， 在 Formt 的 Caption 属性 处 输入 “通过 自动 化 服务 调用 MATLAB "， 并 加 入 
两 个 按钮 控件 Buttonl 和 Button2, 然后 修改 按钮 的 Caption 属性 .Delphi 程序 主 窗 体 如 图 10-4 
所 示 。 
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图 10-3 例 10-1 的 MATLAB 环境 运行 结果 
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图 10-4 例 10-1 的 Delphi 程序 主 窗 体 


第 二 步 : 在 Uses 单元 中 加 入 comobj 单元 ， 在 Forml 上 双击 “Button1” 按 钮 ， 编 辑 该 按 
钮 的 OnClick 过 程 ， 并 添加 相应 的 代码 如 下 : 

procedure TForm1.ButtonlClick(Sender: TObject); 

Var 
MATLAB: olevariant; 

begin 
MATLAB:=CreateoleObject(MATLAB.Application ); 
MATLAB.minimizecommandwindow'; 
MAILAB.execute(ddeexample ); 


end; 


第 三 步 ; 和 点 击 Delphi 的 镭 按 钮 运行 程序 ， 单 击 “ 通 过 MATLAB 自动 化 服务 实现 
混合 编程 ”按钮 ， 运 行 结 果 如 图 10-$ 所 示 。 
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图 10-5 例 10-1 的 Delphi 主 程序 运行 结果 

10.2.3 自动 化 服务 应 用 举例 二 

【 例 10-2】 本 例 将 详细 说 明 如 何 充分 利用 自动 化 方法 实现 Delph 与 MAITLAB 的 交互 。 
本 例 源 代码 可 以 在 配 书 光盘 的 sourcecodevexample10-2 目录 下 找到 。 

1， 本 例 要 实现 的 功能 

例 10-1 只 是 简单 实现 了 Delphi 调用 MATLAB 的 自动 化 服务 功能 ， 没 有 实现 两 者 的 数据 
交互 ， 本 例 将 通过 自动 化 服务 功能 ， 实 现 Delphi 与 MATLAB 之 间 的 数据 传送 。 

第 一 步 ， 与 例 10-1 类 似 ， 先 在 Delphi 环境 下 建立 一 个 新 的 项 目 ， 添 加 按钮 等 控件 ， 然 
后 添加 按钮 对 应 的 OnClick 事件 ， 完 成 后 的 Delphi 程序 主 窗 体 如 图 10-6 所 示 。 

[ETTTEPETTTTTTTOTTT 光 本 [| X| 
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图 10-6” 例 10-2 的 Delphi 程序 主 窗 体 
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源 代 码 如 下 :; 
Unit ULFPmitl ， 
interface 
USeS 
Windows,， NIessSages, SYSLUrils， Varants Classes, Craphics, Contro]3, Forms， 
TDialogs， StdCtrls, jpeg， ExtcCtrls.cotmobj; 
type 
TEFertnl = classtTEFEeorim) 
Button2: TButton; 
JIrmagel: 了 mapgei 
Button3: TButton; 
Button4; TButton; 
Editi: TEdit; 
Button5: 工 Buttonm， 
Edita: 工 Ed 计 : 
Button: 工 世 utton; 
Button7: 工 Buttton' 
Precedure Buttion2ClHck(Sender TObjectb; 
Procedure Button3CjjckfSender: TDbject; 
Procedure Butkon4Click(Sender TObieeU; 
Procedure ButtenSeClickSenger TObjectj; 
Precednre ButtonGCiick(Sender: TDbject; 
firocedure 台 utton7yClicktSender: TObjecty; 
Frocedute FormCreate(Sender: TObjecb; 


Private 
Matlab: olevarianti 
Rnibliic 
{ Public deelarations } 
总 了 中 
V 王 
Ferml: 工 Form 1 : 
impiermentation 
{$ 妥 *# ,dftm} 


procedure TForm] .Button2Click(Sender TObjecti 
begein 
Matlab,guit 


end; 


procedure TForml.Button3Click(Sender TObjectii 
Pegan 
Ciose: 


生 二 仿 。 


”130。 


end， 


Procedure TEForm].HButton4Click(Sender: TObjecbo; 
besin 
MATLABHB,PntCharArrayfstr， base'ed 计 .Texty， 


end， 


Proeedgare Terml ButtonoSClickftSender: TObjecty; 
VaT 
乌 ' String; 
begin 
和 :=KMATLAEB.Gettchararrayfstr，base ]i 
erlit2.Tegt:=S; 
enmd; 


Procedure TForml .Button6CHcklSender TObject); 
VB 上 
RM varianr; 
integeT; 
begjin 
ML:=VYarAtTaytreatef[b,1O0] ,varInteger)i 
for i=0to 100 do 
妃 eein 
Mi:=if20: 
eq; 
MATLAB.PutworkspaceData MT global , MD; 
人 id 


procedrre IForn1.Button7Click(Sender: TObyeety; 
VaT 
TesuUlt : 号 trin 上 ; 
be 名 it 
result := MATLA 吊 , 忆 xecDtef whos global 7); 
ShowimnesSagetrestiit)， 


ettd 


procedure TForm1.FormCreateftSender: PObjecb; 

BeEin 
MATLAB:=CreateoleObjectCMATLAB.Appiication ); 
MATLAB.minirizecorntimandwjndow; 

end: 


end. 


第 二 步 ， 编译 并 运行 程序 ， 单 击 “ 通 过 MATLAB 自动 化 服务 实现 混合 编程 ”按钮 ， 运 
行 结果 如 图 10-7 所 示 。 在 编辑 框 输入 字符 串 “ 测 试 应 用 程序 ” 单 击 “ 向 MAILAB 发 送 字符 
串 ” 按 钮 ， 然 后 单 击 “ 读 取 MATLAB 空间 内 字符 串 数据 ”， 右 侧 编辑 框 正确 显示 刚才 发 送 的 
字符 串 ， 表 明 已 经 成 功 实 现 了 Delphi 和 MATLAB 的 通信 。 单 击 “ 向 MATLAB 空间 发 送 数据 
My” 按钮 ， 然 后 在 MATLAB 的 提示 符 下 输入 “M”， 即 可 以 查询 M 变量 ， 结 果 如 图 10-8 所 
示 。 通 过 单 击 “ 查 询 MATLAB 空间 内 数据 ”按钮 ， 可 以 查询 MATLAB 空间 内 变量 的 属性 ， 
查询 结果 如 图 10-9 所 示 。 


通过 自动 化 最 务 调 用 mATLAB 


.To get started，type one of these: helpwin ，helpdesk，or demo - 
For product information， uisit ww .mathworks -Com- 


Columns 1 through 5 
8 29 


Columns 6 through 19 
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10.3 利用 MATLAB 引擎 实 现 混 合 编 程 


MATLAB 引擎 本 身 并 没有 直接 提供 与 Delphi 的 应 用 程序 接口 ， 但 是 提供 了 基于 Win32 
平台 的 CAC++ 应 用 程序 接口 ， 可 以 利用 MATLAB 与 CAC++ 的 接口 清 数 ， 通过 MATLAB 引擎 
进行 指令 处 理 和 数据 传递 .为 此 ,需要 编写 出 C++ 语言 的 动态 链接 库 , 作为 MATLAB 与 Delphi 
的 接 门 ， 然 后 在 Delphi 中 进行 C++ 动态 库 函 数 的 调用 。MATLAR 引擎 在 第 3 章 进 行 了 详细 
的 介绍 , 这 里 不 再 敖 述 。 本 章 主要 讲述 如 何 利用 Visual C++ 升 发 包 售 MAILAB 引擎 函数 的 动 
态 链接 库 ， 以 及 如 何 生成 动态 链接 库 实 现 MATLAB 和 Delphi 的 接口 ， 


10.3.1 动态 链接 库 介 绍 


动态 链接 库 (Dynamic Link Library，DLL) 是 一 个 能 够 被 应 用 程序 和 其 他 DLL 调用 的 过 
程 和 和 函数 的 集合 体 , 它 包 含 的 是 公共 代码 或 资源 .DLL 是 Windows 的 基 和 有 , 所 有 的 Win32API 
函数 都 包含 在 DLL 中 .使 用 DLL 具有 以 下 优点 : 
> ”一 个 DLL 可 以 提供 给 不 同 的 程序 使 用 ， 如 果 有 风 个 程序 使 用 相同 的 DLL， 也 只 需 
将 DLL 在 内 存 中 装载 一 次 ， 可 以 节省 内 存 开 销 。 
2> DLL 可 以 使 编程 更 加 模块 化 ， 将 功能 相对 独立 的 模块 编 成 一 个 动态 链接 库 ， 上 改动 程 
序 时 木 需要 将 整个 程序 重新 编译 ， 只 需 重 新 编译 所 改动 的 模块 。 
交 使 用 了 DLL 组 件 包 可 以 大 大 减 小 可 执行 文件 的 规模 。 
三 对 于 一 个 大 型 的 、 厅 斯 更 新 的 应 用 程序 ， 可 以 将 许多 重复 的 功能 写成 BLL,， 骨 主 程 
序 调用 ， 这 样 既 减少 了 开发 的 工作 量 ， 又 提高 了 访问 速度 。 
> “DLL 独立 于 编程 语言 , 大 多 数 更 indows 编程 环境 帮 允 许 主 程序 调用 DLL 中 的 函数 ， 
即 可 以 用 Wisual CHH、Visual Basic、PowerBuilder、Delphni、 汇 编 语言 等 建立 DLL， 
然后 在 不 同 语言 编制 的 应 用 程序 中 调用 它 。 因 此 ， 为 多 人 使 用 不 同 的 编程 语言 开发 
项 昌 提 供 了 棋 大 的 方便 ， 


10.3.2 在 Delphi 中 调用 Visual C++ 创建 的 动态 链接 库 的 实例 


在 讲述 Delipni 调用 MATLAB 引擎 动态 链接 库 之 前 ， 首 先 介绍 一 个 实例 ， 以 帮助 读者 对 
Delphi 和 Visual C++ 通过 DLL 混合 编程 有 一 个 比较 直观 的 了 解 。 

f 例 10-3】 利 用 Visual C++ 建立 一 个 动态 链接 库 MaxMin.DLL， 该 库 中 包含 两 个 施 煞 ; 
返回 三 个 整数 中 最 天 整数 的 函数 Maxl( ) 和 返回 三 个 整数 中 最 小 整数 的 函数 Minl( )。 然后 用 
Delphi 编写 测试 程序 调用 动态 链接 库 MaxMin.DLL 中 的 这 两 个 销 数 其 体 包 售 以 下 5 个 步骤 。 






































t、Wisual C++ 6.0 建立 动态 链接 库 MaxMin.DLL 


启动 Visual C++， 从 “File” 某 单 中 选择 “New” 子 菜单 ， 单 击 “Project ”标签 。 选择 便 
建 一 个 “MEFC AppWizardt(d)” 工 程 ， 如 图 10-10 所 示 。 工 程 名 设 为 “Maxmin ， 接 “ 提 六” 
按钮 后 ， 选 择 生 成 “Repular DLL Using shared MEFC DLL ”， 然 后 单 击 “Finish ”按钮 ， 即 创造 
了 一 个 DLL 的 框 桨 工程 . 
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10-10 Visual C++ 向 导 菜 单 


2， 编辑 Maxmin.cpp 文件 
AppWizard 产生 下 面 的 代码 ， 其 中 包含 了 CwinApp 的 派生 类 。 


/MaxMin.cpp : Defines the initialization routines for the DLL. 
// 


丰 nclude "stdafx.h” 
在 nclude "MaxMin.h” 


布 fdef _DEBUG 

#define new DEBUG_NEW 

#undef THIS_FILE 

static char THIS_FILE[] = _FILE_， 
#endif 


HH 
/CCMaxMinApp 


BEGIN_MESSAGE_MAP(CMaxMinApp, CWinApp) 
咱 {AFEX_MSG_MAP(CMaxMinApp) 
/NOTE - the ClassWizard will add and remove mapping macros here. 
// DO NOT EDIT what you see in these blocks of generated codel! 
川 }AFX_MSG_MAP 
END_MESSAGE_MAP(O 


JW 
/中 CMaxMinApp construction 


所 








CCMaxMinApp'CMaxMinATppO 
{ 
nTODG: add construction code here， 


好 Place all significant initialization in InitInstance 


| 


AH 
放 The one and oniy 和 MaxMinApp opject 


MtaxMinrApp theApps 
3， 加 入 代码 实现 函数 的 导出 
把 下 而 的 代码 加 入 到 Maxmin.cpp 文件 中 《〈 也 可 以 使 用 一 个 新 的 文件 》 


extemm "Cdeclspectdltexport) jnt Minltint xint Yint z) 
让 fxX<=y) 疫 (Kc=z)) TetuIn Xi; 

else 于 ((7<=X) 友 (Y<=Zh TeEUTD Y， 

else return z， 种 找 出 x，Yy，z 中 的 最 小 整数 反 

] 


extem "C"” declspecfdllexporty int Maxlfint xint y:int z) 
让 人 fx>=y) 帮 (xc> 一 2) Teturn X; 

else 证 克 y>=X) 妆 【y>=Z]) ttUrn y: 

else return z， 六 找 出 x，y，z 中 的 最 大 下 数 所 

】 


4， 编 译 工 程 
编译 该 工程 ， 生 成 Maxmin.DILL 文件 。 
5， 用 Delphi 编写 调用 Maxmin.DLL 的 测试 程序 


编写 DLL 的 目的 是 为 了 输出 例 程 供 其 他 程序 调用 ， 因 此 在 DLL 的 工程 文件 中 要 把 输出 
的 例 程 用 Exports 关键 字 引出 。 在 调用 DLL 的 忘 用 程序 中 ， 需 要 声明 用 到 的 DLL 中 的 方法 ， 
声明 格式 要 和 DLL 中 的 声明 一 样 。 访 问 DLL 中 的 例 程 可 采用 静态 调用 和 动态 调用 两 种 方 
式 。 静 态 调用 方式 就 是 在 单元 的 Interface 部 分 用 External 指示 字 列 出 要 从 DLL 中 | 入 的 例 
程 ; 动态 调用 方式 则 是 通过 调用 Windows 的 APL, 包括 LoadLibrary( ) 困 数 .GetProcAddresst ) 
各 玫 避 及 FreeLibrary( ) 函 数 ， 动 态 地 引入 DLL 中 的 例 程 。 
(1) 静态 调用 
第 一 步 ， 启 动 Delphi， 选 择 “New Application”， 生 成 一 个 空 的 应 用 程序 ， 在 Form 的 
Caption 属性 处 输入 “Delphi 调用 Wisual C++ 生成 的 DLL”， 在 Form 中 加 入 控件 ， 如 冒 10-11 


160， 


所 示 《〈 其 中 所 有 Edit 控件 的 “Text” 属 性 均 设 为 空 )。 
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图 10-11 Delphi 程序 主 窗 体 


第 二 步 : 选择 “File” 菜 单 中 的 “New...” 子 菜单 ， 在 出 现 的 “New Item” 对 话 框 中 选择 
“unit”， 单 击 “OK” 按 钮 ， 生 成 一 个 空 的 源 文 件 ， 在 该 文件 中 输入 以 下 内 容 : 


unit maxmin; 


interface 
function Min1(x,y,z:Integer):Integer; cdecl; 
function Max1(x,y,z:Integer):Integer; cdecl; 


implementation 

function Minl;external 'MaxMin.DLL' name 'Minl ; 
function Max1l;external 'MaxMin.DLL' name 'Max1l '; 
end. 


第 三 步 : 在 Unitl.pas 文件 中 的 “uses” 中 加 入 “Maxmin 。 

第 四 步 : 在 Form 上 双击 “静态 调用 ”按钮 ， 对 该 按钮 的 “Click” 事 件 编程 ， 代 码 如 下 : 
procedure TForm1.Button1Click(Sender: TObjectb; 
begin 
editMax.Text:=IntToStr(Max1l(StrToInt(edit1.Text)， 
StrToInt(edit2.Texb,StrToInt(edit3.Texb)); /调用 动态 链接 库 中 的 函数 Maxl 
editMin.Text:=IntToStr(Min1l(StrToInt(edit1.Text)， 
StrToInt(edit2.Text),StrToInt(edit3.Text))); 


end; 


第 五 步 ， 将 上 述 步骤 中 Visual C++ 所 建立 的 动态 链接 库 “Maxmin.DLL ”拷贝 到 Delphi 
的 当前 工作 目录 中 。 然 后 运行 Delphi 创建 的 测试 程序 ， 运 行 结 果 如 图 10-12 所 示 。 
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10-12 Delphi 程序 静态 调用 运行 结果 


(2) 动态 调用 
第 一 步 : 选择 “File” 菜单 中 的 “New...” 子 菜单 ， 在 出 现 的 “New Item” 对 话 框 中 选择 
“unit”， 单 击 “OK” 按 钮 ， 生 成 一 个 空 的 源 文 件 ， 在 该 文件 中 输入 以 下 内 容 : 
unit maxmin2; 


unit maxmin2; 
interface 


tyPe 

TMin1=function(x,y,z:Integer):Integer; cdecl; 
TMax1=function(x,y,z:Integer):Integer; cdecl; 
THandle=Integer; 


implementation 
end. 


选择 “File” 菜 单 的 “Save As..….” 子 菜单 ， 将 上 述 文件 存 为 “Maxmin2.pas 。 
第 二 步 ， 在 Unitl.pas 文件 中 的 “uses” 中 加 入 “Maxmin2 。 
第 三 步 ， 在 Forn 上 双击 “动态 调用 ”按钮 ， 为 该 按钮 添加 “Click” 事 件 代 码 如 下 : 
procedure TForm1.Button2Click(Sender': TObject); 
VaT 
Handle:THandle; 
Min1:TMinl; 
Max1l:TMax1; 
begin 
Handle:=LoadLibrary(CMaxMin.dll); /将 “MaxMin.dl” 的 文件 映像 映射 进 调 用 进程 的 地 址 空间 
让 Handle<>0 then 
begin 
@Minl:=GetProcAddress(Handle,Min1); /取得 DLL 中 函数 Min1( ) 的 地 址 
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@Max1l:=GetProcAddress(Handle,Maxl); /取得 DLL 中 函数 Maxl( ) 的 地 址 
if (@Min1<>nil) and (@Min1<>nil) then 

begin 

editMin.Text:=IntToStr(Min1(StrToInt(edit1.Text)， 
StrToInt(edit2.Texb,StrToInt(edit3.Texb)); /调用 动态 链接 库 中 的 函数 Min1 
editMax.Text:=IntToStr(Max1l(StrToInt(edit1.Text)， 
StrToInt(edit2.Text,StrToInt(edit3.Text))); /调用 动态 链接 库 中 的 函数 Maxl 
end else ShowMessage(' 调 用 函数 “GetProcAddress” 时 出 错 ! 7); 
FreeLibrary(Handle); /从 进程 的 地 址 空间 中 解除 “MaxMin.dl” 文 件 的 映射 
end; 


end; 


第 四 步 ， 运行 Delphi 创建 的 测试 程序 ， 单 击 “ 动 态 调用 ”按钮 ， 运 行 结果 如 图 10-13 
所 示 。 





图 10-13 Delphi 程序 动态 调用 运行 结果 


10.3.3 ”MATLAB 引擎 动态 链接 库 的 设计 


MATLAB 引擎 本 身 并 没有 直接 提供 与 Delphi 的 应 用 程序 接口 ， 但 是 提供 了 基于 Win32 
平台 的 C/C++ 应 用 程序 接口 。 为 此 ,需要 首先 利用 MATLAB 与 CIC++ 的 接口 函数 ， 编写 C++ 
语言 的 动态 链接 库 。 在 动态 链接 库 中 ， 需 要 将 Delphi 中 的 数据 送 入 MATLAB 进行 分 析 ， 并 
选择 合适 的 处 理 函 数 进行 运算 ， 然 后 将 结果 送 回 Delphi。 为 了 实现 上 述 目的 ， 我 们 在 动态 链 
接 库 中 设计 了 几 个 函数 ， 读 者 也 可 以 根据 需要 添加 相应 的 处 理 函 数 。 

【 例 10-4] 利用 Visual C++ 建立 MATAB 引擎 库 的 动态 链接 库 ， 具 体 包 含 以 下 几 个 步骤 : 

(1) 利用 Visual C++ Developer Studio 创建 DLL。 

启动 Visual C++， 从 File 菜单 中 选择 “New”， 单 击 Project 标签 。 选择 MFC AppWizard 
(diD， 工程 名 设 为 “MATLABengine”, 按 “OK ”按钮 后 , 选择 "Regular DLL Using shared MEFC 
DLL”， 其 他 按 默认 值 设置 。 

(2) 编辑 MATLABengine.cpp 文件 , 加 入 以 下 代码 到 MaxMin.cpp 文件 中 ， 实现 函数 的 
导出 。 

// 头 文件 
直 include "engine.h” 


63 = 





Engine *ep=NULL， 

InXArTay +T 工 = NULL; 

/打开 MATLAB 引擎 的 函数 

exXtern "CC” declspecfdllexpotrt int MatDPpenEngtchar *StartCrindy 
iep) returng:W 如 果 已 打开 则 退出 
iep=engOpentStartCrnd)])y retumn -1; 





&lse return ] 
Feturn ] ， 


} 
关闭 MATLAB 引擎 的 函数 
eXteIn 人 ”qdeclspec(qllexport)] Int MIat]oseEmng(void) 


{ 
int 及 esSU] 必 PengClosekep); 
下 (ResuUlt==0) ASuceeSs 
ebE=NULL， 
TetWrrl ReSu]t; 


} 
1 执行 MATLAB 命令 函数 


exXtern 人 ”qdeclspeefq]lexPorD int MatEvalStringtchar *string) 


return (engEvalString(ep, stringJ); 
】 


exterm CC” declspecfdllexpett) int MatGetYisible(booly value) 
{ 
return [enEGetVjsib]efepb，vauey)， 


] 


extem CC” declspecfdlexport) int MatSetwisibletbool value) 


{ 
Tetum fenESetVisible(ep, value)h 


1 发 送 数 据 到 MATLAH 的 函数 
exterm "C"” declspecfdllexporb int MatPutVariabletchar *Cccint mitdouble 6d[)) 
{ 


if!ep) Tearg 0; 

证 num<iy retunm -1; 
T=mxCreateDoubleMatixflnuiminxREAL)， 

mermiepyr(char *)mxGetPrT)char *#)dd,nurm *# Sizeoffdoubjie 力 ; 
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engPutYariablereb,cc,T); 
Tetum ]， 


} 

1 车 取 MATLAB 数据 菌 数 

extern ”declspectdllexporD int Matt3etVariabtetchtar *cesint nurmdounble dd[]) 
{ 


mxXArray #fesult; 
LepXeturn 昌 ; 
innme1ljreturn-1l: 
tesQit 一 netGetWTiab]EePec]' 
rneincpyt(ehar +jdd(ehar nxCietPr(result,nurml* sizeofttdouble) 
Teturn 疙 ; 
】 
读者 还 可 以 根据 需要 定义 其 他 一 些 函数 ， 例 如 蒜 皮 变量 名 六 数 等 。 
(3)》 动态 链接 库 在 Delphi 中 的 应 用 . 
人 为 了 在 Delphi 中 使 用 动态 链接 库 函 数 ， 首 先 要 对 这 些 函 数 进行 如 下 声明 ; 


un RMATILABengine: 








interface 

fonction MatDOpenEnE(P:PCharm:Integericdec]， 

fniction MatCloseEngO 〇 :INtCSCEmCdecl: 

function MatEvatString(p:PChar):Jntegericdecl; 

function MatGetVisible(valne: 了 oolean):Integericdec]; 

function MatSetVisibhietvalue:Booleany'Integericdecl; 

funetion MiatPutwariabhtetcc':Pchar:nurm'integer:dd: array of doubleyIntegercdecj: 


function MatGetwariablefee:Pehar'nuimzintegerxdd: array of doublel:Integermcdecl; 


impletmentation 

fanetion MatOPenEng; external rnatenginedll.dt， 
function MatCloseEng;external rmatenginedi.dlt; 
fanetonr MatEvaString;eXternal Taatenginedl.d] ; 
fnction MatGetwisjbie;extetmal rmatenginedll.dll 
fnection MatSetVigibje;extetnal mnateTinedild 
fanction MatPutVariable:external matengined]].d1l 
function MatGerVariable;extermat matemnginetll.dll : 


end. 


加 启动 Delphi, 选 择 *New Application” 生 成 一 个 空 的 应 用 程序 ， 在 Form 的 “Caption7 
属性 处 输入 “Delphi 通过 DLL 调用 MATLAB 引擎 ” 在 Form 中 添加 控件 ， 如 图 10-14 
所 示 。 


"165。 


(3) 


*。， 1606。 


jz Delphi 通 过 DLL 调用 mATLABSI 毕 


iThe MathWorks 


Accelerafing fhe poce of engineering and science 


打开 MATLA8 引 擎 
， 执行 MATLAB 命 令 
发 送 数据 到 MATLAB 
读 取 MATLA68 空 间 数 据 
关闭 MATLAB3| 掌 








图 10-14 Delphi 程序 主 窗 体 
添加 代码 ， 实 现 功能 调用 : 


unit Unit]l ; 


interface 


USesS 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms， 
Dialogs, StdCtrls,MAITLABengine, jpeg, ExtCtrls; 


type 
TForml = class(TForm) 
Button1: TButton; 
Imagel: TImage; 
Button2: TButton; 
Button3: TButton; 
Button4: TButton; 
Button5: TButton; 
Button6: TButton，; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObjectb); 
procedure Button3Click(Sender: TObject); 
procedure Button4Click(Sender: TObject); 
procedure Button5Click(Sender: TObject); 
procedure Button6Click(Sender: TObjecb); 

Private 


{ Private declarations } 





Publie 
{ Puhlic declaratiomns ] 


eTd; 


VaT 


Forrml: TEocmj ; 
impjementatton 
[{$R *, 时 my) 


procedure TForm1.ButtonlClick(Sender: TObjecty; 
下 T 


TeESUI :让 外 让 Ct 


begin 
IESUL:=RMatOpenEnge( PharOD]; 


1 出， 


proceduse TEormjl.Button2ClickfSender TDhjesct; 
begim 

RatCleseEneE 人 站; 
endi 


Procedure TFormai.Biitton3Click(Sender TObject); 
beein 
Close: 


end: 


Procedure TForml.Button4Click(CSendet': TObjecfty， 

YaT 
XX: Sarrgay [ 吕 ..9]of doubje; 

beein 
RatGetwariabler tesft 1 牛 ,XX): 
showmessagefcurrtostr(xx[S]):7 显示 数组 中 第 六 个 元 素 的 值 


endl; 


Procedure TForml1.Buttonstelick(Sender TObjecti; 
begin 
MaEvalgString(Peharimeshrpeaks) 7 


end: 
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Brocedure TFonmml.Button6CHick(Sender: TDbject): 
Var 
dd: aray[0..2lor doupble; 
于 诅 t 节 Ber; 
begin 
tori=oOtoo do 
begein 
did: 一 
end' 
RMatPutVariableftest,10,.dd); 
end; 


”Rnd， 


也 将 上 述 步骤 中 Visual C++ 所 建立 的 动态 链接 库 MATLABengine.dll 拷贝 到 当前 工作 目 
录 中 ， 然 后 运行 Delphi 创建 的 测试 程序 ， 单 击 各 扫 乌 即 可 查看 运行 铺 霖 。 


10.4 Delphni 调用 Mideva 生成 的 动态 链接 库 


10.4.1 Mideva 介绍 








Mideva 是 MathTools 推出 的 一 种 MATLAB 编译 开发 软件 平台 , 提供 对 MATLAB 程序 文 
件 〈M 文件 ) 的 解释 执行 和 开发 环境 支持 ， 它 集 编 辑 、 调 试 、 编 译 和 优化 于 一 体 。 该 软件 有 
为 Borland C++、Visual C++ 等 编程 语言 开发 的 不 同 版 本 。Mideva 提供 的 功能 相当 强大 ， 棱 
为 它 包 售 了 近 千 个 MAITLAB 的 基本 基 能 函数 , 通过 必要 的 设置 就 可 以 直接 实现 与 C++ 的 混 
合 编程 ， 而 不 必 再 依 囊 MAITLAB， 同 时 ，Mideva 还 提供 编译 转换 功能 ， 能 够 将 MATLAB 
函数 或 编写 的 MATLAB 程序 转换 为 EXE 或 者 DLL， 从 而 可 以 脱离 MATLAB 环境 实现 对 
MATLAB 函数 的 调用 。Mideva 的 详细 介绍 见 第 5 章 ， 

虽然 Mideva 提供 了 输出 DLL 文件 的 功能 , 但 是 在 实际 应 用 中 输出 的 DLL 文件 往往 不 能 
直接 使 用 。 因此 , 本 节 通 过 实例 介绍 利用 Mideva 输出 DLL 文件 过 程 中 伴随 生成 的 CPP 文件 ， 
手动 编写 动态 链接 库 ， 然 后 在 Delphi 中 调用 ， 从 而 实现 Mideva 和 Delphi 的 混合 编程 。 


10.4.2 ”应 用 实例 


【 例 10-5]】 本 例 将 实现 Delphi 和 Mideva 的 混合 编程 。 虽 然 本 节 也 是 利用 动态 链接 库 的 
方式 实现 混合 编程 ， 但 是 它 不 同 于 10.3 节 的 方法 。 本 节 直 搂 利 用 Mideva 生成 的 CPP 文件 来 
创建 DLL。 有 具体 包含 以 下 步骤 ; 

(1) 首先 准备 好 M 文件 ， 用 来 实现 点 沿 圆周 运动 的 动画 。 

在 Mideva 环境 下 编写 diamondm 文件 ， 其 源 代 和 码 如 下 : 

fnction 丰 atmond 人 0 
名 实 现 点 沿 圆周 运动 的 动画 
t0:Pif2000:Pi#2; 

。168。 











Xx=Ssin(t); 
y=cos(0; 
plot(y,x,b); 
axis equal 
n=length(t); 
h=line(color,g',linestyle'， 
marker,. ,markersize',50,erasemode',xor); 
i=1; 
while i 
Set(h, xdata,y(iD),ydata ,x(i); 
drawnow; 
ji=i+]; 
ifi>n 
i=]1; 


end 





10-15 _ diamond.m 程序 在 Mideva 环境 下 的 运行 结果 


(2) 用 Mideva 将 diamond.m 转换 为 DLL。 
单 击 Mideva 环境 “File” 菜 单 下 “Compile to dl” 子 菜单 ， 在 弹出 的 “go command” 对 话 
框 中 选择 要 编译 的 M 文件 ， 即 diamond.m， 编译 完毕 后 ， 将 生成 对 应 的 DLL 文件 diamond.dll 
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太一 系列 CPP 文件 ， 其 中 由 amoend.cpp 文件 的 内 容 如 下 ， 
神 mnelmnde "matiib.h" 
#pTagHna hdistoh 


太 Telude "9iamond.h” 


km 而 amotmdi { 

begin_scope 

dMmtb; dMrmtxj: dManty) dMinlny5 daMrmnth); dMrmti 人 
并 ine “dd:SOUCecodeyexarmplei0-syrdiarmnond,m” 
call_stack_begin; 
丰 ine ] dd:SOUCcecodGerexample10-5Aiarmorq.In” 
Hinargin, margOuUt entry codqe 
ouble old_nargin=nargin val; 让 《TargID_Se 妇 DarEIn_VSI 一 局 曲 ; 
Dargin_Setzc0; 
double old_nargout=nargout_ val; 证 [Inargout_sSet nargout_val=0.0; 
Ta 区 Dut_Set 一 0 


Ptranslated cogde 


刘 ine 2 "d:/soucecedeAexamplei0-Sidiamondm 
t = ColontO.DOpi2000.0,.Dit2 人 D); 
#line 3 "dsDucecndeAexXampIe1b-Sjdiarmond.m” 
X 二 Sinft: 
并 line 4 "d/soucecodeexamnplel0-3yjdiamond,na” 
一 8 人 1 
神 ine 5 "dsSoUcecodeexample10-3/diamongGIm” 
BIOTCELCD RTM 和 入 
衣 ine 6 "dsSonDcecaodeyexainple10-37 由 atmond.im 
HxXisfEM eqaal 7; 
扩 iine 了 "dsSoucecedeyexamplei10-S/diarmond.m” 
站 = ]eng 如 ( 生 ; 
#f1ine 和 "dsSDCeecoderexarntplelO-srdiameondg.I” 
hbh=linettCLITM 人 eolor ITMIE TMClinestyie  TMCO TITM marker ) TMI ，)，TM( Imarkersize )， 

50.0TMI erasemode") ,TMIC xor 力 ]; 
相 ine 10 "dsoucecodeexampie10-5/diarnondnt 
1 = 工 . 必 
##line 11 "dd 各 oucecodeexample10-5y/diarmnondrmm” 
While {istruef { 

jine 上 2 "doucecoderexample10-SAdianorudImn 
170， 





-~ SettbMCLUMK Xdata 力 ,YU_PTMC ydata ).Xti 3 
请 ine 13 "dzSoucecodeyexatmnpie1I0-sidiamondmy 
drawmnow 门 ， 
#line 14 "SoUcecodeyexatmple10-SAdiartornd.m" 
1 = 二 1.0; 
审 ine 13 "dsS0UCecedeAexarrple10O-SAdiarmnond.n 
让 Yistruefi mn 人 二 
扩 ine 16 "dd7SDDcecodeexaymnplei0-37qiamond.m” 
1 = 1.0， 
覃 ine 317 "Qi7SouceeodeAexarmnplE10O-SHiarnonadrm 
| 


#line 18 "qdSoUcecodeAxampieto-o3ydiamondm” 


Call_stack_end; 


PH nargin, nargowt exit Code 


Rargir_ val=oljdu_nargin; nargout_ val=old_nargout 
彤 Eunction exit code 
FetuTTL X_ 


ent_sSeobe 


} 


《3) 利用 Visual C++ 6.0 生成 动态 链接 棕 ， 包 售 以 下 3 个 步骤 : 


个 利用 MERC AppWizard (dl) 创建 一 个 项 目 ， 名 字 为 “delphidl”， 采 用 默认 设置 。 


饭 在 头 文件 中 输入 以 下 内 容 : 


exftem "Cdeclspectdllexporty void diamond; 


利用 Mideva 后 成 的 diamond.cpp 文件 ， 在 detphidttcpp 源 程 序 文 件 中 添加 如 下 代 公 : 


eXtetm "CC”_declspectdllexport) void diamondt) 
{ 
PTODO: add construction code here， 
# Place all significamt initialization in Initinstance 
initM(Miatecom_VERSIDOID; 
begin_scope 


dmntb: dm dMrmnty) dmonli dm dinli 


提 ine 1 "dsSoucecode/exarmple10-SAdiamond.Im” 
Call_stack_begini 
失 ine 1 "dsoucecodeAexample10-S7diamotdm 


/aargin, nargoat entry code 
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qdouble old_nargin=narein_ val; 让 (Inatgin_Sefty nargin_val=0.0， 


nargin_Set= 癌 ; 


douDlE old_nargout=nargout_ val; 诗人 tnargOUL 8Ety AT 训 OUK_Y 让 一心 眉 ; 


.hargout_sSet=DD; 


Ptranslated code 


审 ine 2 “dsSOUCecodeAexamplei05iqiamongd,m” 
t= colonl0.0.Pir2000.0,Pi*#2.0; 

刘 ine 3 "dysoucecodeexarmple10-Srdiamond.m 
X 一 Sinft); 

昌 ine 4 "douceccdeexample10-57diamondm 
Y= costb， 

神 ine S "doucecodeexample10-SAdiamondm 
plotttCLGJTMCD 

##[ine 各 "SOUcecodeyexample10-S7darmond.m 
XiSCITME equal )》; 

砷 line 了 dfSoUeecodeIexarnple10-Srdiarmnondm” 
忆 L = lengthttb; 

相 ine 息 "dJJ8OoucecodeiExarmnple105SAiamond.m 


h = linettCLIITMI"color ITM0g JJTMIlinestyle )TMC TITMC Taarker TITMC 


TIMI Parkersize" 50.0TMIC'erasemode ITMI Xor 
##line 1 "doucecedeyexamplel10-Srdiarnondm” 
人 一 
#line 11 "dsouceceodeexample0-ordiamond.m” 
While {istmueti 
让 ine 12 "dsSouceeodeAexample10-Srdiarmond.ma” 
SetfhCECTMIC "xdatay 人 JTJ TMH ydata Xi D)， 
草 jne 13 "dsoueecodeyexarple10-S7diamondm” 
drawnowf， 
ine 14 "dBoucegodefExatmple10-Sfdiarmmond .ma ” 
ji = 荆 +1.0: 
家 ine 15 "qd:/Soucecode/examPieioO-sidiamondmn 
让 (istmueti_ >ny) 二 
丰 ine 16 "d:7soucecodeexarplel0-5Hdiameond.rm 
i_= 1.0， 
荐 ine 17 "dsoucecodeexarnplel105Adqiarmondm 


#line 18 "dsSOuUcecodleyexampleJ0-S7diamond.m 


call _stackK_endl; 


/nargin, nargout exit code 


nargin_val=old_nargin; nargout_val=old_nargout; 
/function exit code 


/| return X_M; 
end_scope 
exitM(); 
} 
@) 编译 ， 生 成 delphidll.dll 文件 。 
(4) 用 Delphi 编写 调用 delphidll.dll 的 程序 ， 包 含 以 下 4 个 步骤 。 
@ 启动 Delphi 6.0, 选择 *'New Application”, 生成 一 个 空 的 应 用 程序 ,在 Forml 的 Caption 
属性 处 输入 “Delphi 调用 MIDEVA 的 动态 链接 库 ”， 加 入 两 个 按钮 控件 Buttonl 和 Button2， 
如 图 10-16 所 示 。 
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图 10-16 ”Delphi 程序 主 窗 体 
@) 在 源 文件 unitl.pas 中 输入 以 下 内 容 : 


interface 
UsSes 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms， 
Dialogs, StdCtrls, jpeg, ExtCtrls; 
Procedure diamond(); 
tyPe 
TForml = class(TForm) 
Button1: TButton; 
Button2: TButton; 
Imagel: TImage; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObjectb; 


Private 
{ Private declarations } 
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public 
{ Public declarations } 


end; 


Var 
Form1l: TForm1l; 
Procedure diamond; external 'delphidll.dll name 'diamond'; 
@) 在 Forml 上 双击 “调用 动态 链接 库 ” 按 钮 ， 添 加 该 按钮 的 Click 事件 代码 : 
procedure TForm1.ButtonlClick(Sender: TObject); 
begin 
diamond(); 
end; 


色 将 delphidll.dll 拷贝 到 Delphi 的 当前 工作 目录 中 。 编译 运行 程序 , 运行 结果 如 图 10-17 
所 示 。 
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图 10-17 例 10-5 的 Delphi 程序 运行 结果 


10.5 通过 外 部 调用 实现 混合 编程 
10.5.1 外 部 调用 方法 介绍 


外 部 调用 方法 就 是 可 以 通过 三 个 Windows SDK 函数 WinExec( )，ShellExecute( ) 和 
CreateProcess( ) 来 实现 在 Delphi 的 程序 中 加 载 其 他 执行 程序 。 
WinExec( ) 函 数 原 型 如 下 : 
UINT WinExec 
人 
LPCSTR lpCmdLine， / 命令 行 地 址 
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UINTucmdShow 1， 窗口 显示 方式 
有 
ShellExecuter ) 畏 数 不 型 如 下 : 
HINSTANCE SheilExecute 
[ 
HWND hwnd，7 父 章 口 句 林 
ELPCTSTR ijpOperation，W 操作 类 型 指针 
LPCTSTR lpFile，7 文件 /日 录 名 指针 
LPCTSTR IlpParameters, A 执行 程序 参数 指针 
LPCTSTR lpDirectory， ww 缺 省 目录 挫 针 
INTanShowcmd 7 文件 是 否 显示 
和 
CreatepProcesst ) 邓 数 原 型 如 下 : 
BOODL CreateProcess 
《 
LPCTSTR ]papplicaiionMame， jpointer to name of execttable Imoduje 
LPTSTR IpCommandLine，W hointer to command line string 
LPSECURITY _ ATTRIBUTES IpProecesSAttributes， pointer 1O process SECHTity atttibnteS 
LPSECURITY _ATTRIBUTES JPThreadAttribntes,w pointer to thread security attributes 
BOOL bInheritHandles， 站 handle inheritance 站 ag 
DYWORP dwCreationElags,A creation ftags 
LPVOID ]pEnvironment， 4 Peinter to nEw envifonrent block 
LPCTSTR 1]PCurentDirectory， 由 pointer to current directory nitrne 
LPSTARTUPINEFO lpStartupInfo,w pointerto STARTUPINEO 
LPPROCESS_INFORMATIION ]PProcessInformation pointeete PROCESS _ INFORRMLATION 
站 
函数 WinExee( ) 最 简单 ， 只 有 两 个 参数 ， 前 一 个 指定 路 径 ， 后 一 个 指定 显示 方式 。 其 中 ， 
显示 方式 的 参数 中 如 果 使 用 SW_SHOWMAXMIZED 方式 , 则 加 载 一 个 无 最 大 化 按钮 的 程序 ， 
会 出 现 正常 的 窗 体 ， 但 实际 上 已 经 被 加 到 任务 列表 里 了 。 
ShellExecute( ) 较 WinExec( ) 稍 币 灵 活 一 点 ， 可 以 指定 工作 目录 。 下 面 的 例子 就 是 直接 打 
开 cstempxltxt， 而 不 用 加 载 与 txt 文件 关联 的 应 用 程序 。 


shellExeeute(NULLINULL, 1.PDNULL etemp SSW_SHOWMAXMEED) 


CreateProcesst ) 最 复 共 ， 有 10 个 参数 ， 不 过 大 部 分 都 可 以 用 NULL 代替 ， 它 可 以 指定 进 
程 的 安全 属性 、 继 承 信息 、 类 的 优先 级 等 。 


10.5.2 ”应 用 实例 


【 例 10-6】 本 例 将 实现 Delphi 外 部 调用 执行 程序 ， 该 执行 程序 由 M 函数 转化 而 来 。 其 体 
包含 以 下 步骤 ， 

c1 利用 Mideva 将 diamond.m 转换 为 exe 文件 ， 在 “example10-5ADebug” 目 录 下 将 会 
看 到 出 amondexe 文件 。 
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(2) 启动 Delphi 6.0， 选 择 “New Application”， 生 成 一 个 空 的 应 用 程序 ， 在 Forml 的 
Caption 属性 处 输入 “Delphi 外 部 调用 ” 并 添加 两 个 按钮 控件 Buttonl 和 Button2， 如 图 10-18 
所 示 。 
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图 10-18 例 10-6 的 Delphi 程序 主 窗 体 


(3) 在 Forml 上 双击 “外 部 调用 ”按钮 ， 添 加 该 按钮 的 Click 事件 代码 如 下 : 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
WinExec(diamond.exe'\,SW_SHOW):; /外 部 调用 
end; 
(4) 将 diamond.exe 拷贝 到 Delphi 的 当前 工作 目录 中 ,编译 运行 程序 就 可 以 看 到 外 部 调 
用 的 效果 了 。 


10.6， 小 绪 
因为 Delphi 是 很 多 开发 人 员 喜 欢 使 用 的 语言 ， 本 章 对 Delphi 和 MATLAB 的 混合 编程 方 
法 进行 了 较 详 细 的 介绍 ， 包 含 实现 Delphi 和 MATLAB 混合 编程 的 三 种 具体 方法 ， 即 通过 


MATLAB 自动 化 服务 、 利 用 MATLAB 引擎 和 Delphi 调用 Mideva 生成 的 动态 链接 库 。 实 际 
上 ， 凡 是 Visual C++ 与 MATLAB 可 以 实现 的 混合 编程 方法 ， 几 乎 在 Delphi 中 都 可 以 实现 。 
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第 11 章 MATLAB 和 Excel 的 混合 编程 


11.1 引 言 


MATLAB 具有 强大 的 数据 计算 和 图 形 显示 能 力 ; Exeel 则 是 Microsoft 提供 的 一 种 常见 的 
表格 处 理 软件 ， 它 也 具有 强大 的 数据 统计 和 显示 能 方 。 对 于 一 些 常 见 的 统计 图 形 显 示 ， 例 如 
棒 图 、 饼 图 、 拆 线 图 等 ，Excel 的 显示 质量 很 高 。 但 是 ， 对 于 一 些 较 党 杂 的 图 形 亚 示 ， 例 如 
等 高 线 ，Excel 则 显得 无 能 为 力 。 在 实际 的 工程 应 用 由， 通常 有 一 些 Excel 表单 〔〈sheet) 的 数 
据 ， 需 要 进行 一 些 复 杂 的 数据 计算 和 处 理 后 再 进行 统计 或 显示 。 另 外 ，MATLAB 运算 得 到 的 
结果 , 尽管 可 以 利用 MATLAB 提供 的 函数 进行 显示 ,但 其 显示 效果 可 能 不 如 Excel 易于 控制 ， 
特别 是 在 学 术 论 文 的 写作 过 程 中 。 此 时 ， 需 要 实现 MATLAB 和 Excel 的 混合 编程 ， 

MATLAB 和 8Bxcel 的 混合 编程 有 两 种 实现 方式 : 一 种 是 利用 MAILAB 6.5 以 后 版 本 提供 
的 Excel Link 插件 ， 实 现 Excel 和 MATLAB 的 数据 共享 : 另外 一 种 方式 是 利用 MATLAB 提 
供 的 Excel 生成 器 ， 可 以 生成 DLL 组件 和 VBA 代码 。 其 中 ， 利 用 DLL 组 件 可 以 进行 COM 
生成 器 组 件 相似 的 操作 ， 利 用 VBA 代码 则 可 以 在 Excel 的 Visual Basic 编译 器 中 青 接 使 用 ， 
可 以 保存 为 播 件 。 

















11.2 ”通过 Excel Link 实现 Excel 和 MATLAB 的 数据 共享 


11.2.1 ”概述 


Excel Link 是 一 个 软件 插件 ， 它 可 将 Excel 和 MAILAB 进行 集成 。 通 过 对 Excel 和 
MATLAB 的 链接 , 用户 可 以 在 Excel 的 工作 空间 里 ,利用 Excel 的 宏 编 程 芭 能 ,使 用 MATLAB 
的 数据 处 理 和 图 形 处 理 功 能 进行 相关 操作 ， 同 时 Excel 保证 MATLAB 和 Excel 工作 空间 中 
数据 的 交换 和 同步 更 新 。 使 用 Exeel Link 时 ， 不 必 脱 离 Excel 环境 ， 而 直接 在 Exceli 的 工作 
区 或 者 宏 操作 中 调用 MATILAB 的 函数 。Excel 共 提 供 了 tl 个 函数 来 实现 链接 和 数据 操作 。 

为 此 ， 通 过 Excel Link 这 个 中 介 ，Excel 不 为 MATLAB 的 一 个 易于 使 用 的 数据 存储 和 应 
用 开发 前 端 ， 它 是 一 个 功能 强大 的 计算 和 图 形 处 理 器 。 

Excel Link 的 运行 机 制 如 图 14-1 启示 。 


11.2.2 Excel Link 的 安装 


Excel Link 对 运行 环境 没有 特别 要 求 ， 只 要 能 够 同时 运行 Microsoft Excel 和 MATLAB 即 
可。Excel Link 需要 近 200KB 的 厂 盘 空间 ， 操 作 系 统 可 以 是 Windows 98，Windows XP 或 
Windows 2000， 此 外 还 需要 在 Windows 环境 下 先 安装 Exeel， 然 后 再 安装 MATLAB 和 Excel 
Link 。 

Exeel Link 可 以 视 为 MATLAB 的 一 个 工具 箱 ，Excet Link 的 安装 可 按 MATLAB 安装 向 
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导 的 提示 进行 , 即 在 MATLAB 安装 组 件 选择 框 中 一 定 要 选择 安装 Excel Link， 并 按 提 示 继 续 
安装 。 


Microsoft Excel MATLAB 


Excel Link 


〈 统 计 及 常规 图 形 显 示 ) (数据 计算 、 处 理 及 复杂 图 形 显示 ) 





图 11-1 Excel Link 的 运行 机 制 
1 Excel 的 设置 


安装 Excel、MATLAB 及 其 工具 箱 Excel Link 后 ， 还 需要 在 Excel 中 进行 相应 的 设置 ， 
以 便 完 成 Excel 和 MATLAB 的 链接 。 有 具体 需要 完成 以 下 步 又; 

(1) 启动 Excel。 

(2) 单 击 Excel 的 “工具 ”菜单 。 

(3) 执行 “加 载 安 ?， 如 图 11-2 所 示 。 

(4) 在 弹出 的 如 图 11-3 所 示 的 “加 载 安 ” 对 话 框 中 ， 单 击 “ 浏 览 ”按钮 。 














厂 Internet Assistarnt VBA LE] 
三 WS Query 5 取消 | 
厂 0DBC 加 载 宏 
们 SO | 浏览 @. | 
厂 分 析 数据 库 - VBA 函数 
厂 更 新 加 载 室外 接 过 
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自 定义 (@)…， | xcel Link 2.2 
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图 11-2 ”执行 “加 载 宏 ” 图 11-3 “加 载 安 ”对 话 框 


(5) 在 弹出 的 路 径 选 择 对 话 框 中 ， 选 择 MATLAB 安装 目录 toolbox\exlink 路 径 下 的 
excllink.xla， 然 后 单 击 “ 确 定 ”。 

(6) 在 返回 的 “加 载 安 ”对 话 框 中 ， 此 时 已 经 选中 了 Excel Link。 单 击 “ 确 定 ” 后 Excel 
Link 将 加 载 MATLAB 。 此 时 ， 可 以 看 到 MATLAB 会 自动 启动 ， 如 图 11-4 所 示 。 
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BEATLAB Command indow 





了 ile dit Yiew 时 indow Help 2 
| 间 区 | 因 本 本 | 号] 曾 负 1? 








To get started，tupe one of these: helpwin，helpdesk，or demo - 
For product information，vuisit wwuw -mathworks -com- 


有 的 和 








图 11-4 “MATLAB Command Window” 窗 口 


稍 后 ，Excel Link 工具 栏 会 在 Excel 工作 表 中 出 现 ， 如 图 11-5 所 示 。 添 加 的 Excel 工具 
栏 中 会 出 现 4 个 执行 MATLAB 的 命令 按钮 : startMATLAB .putmatrix、getmatrix 和 evalstring。 
它们 分 别 表示 启动 MATLAB、 把 数据 传 给 MATLAB 、 从 MATLAB 提取 数据 和 执行 MATLAB 
命令 。 

Excel 工具 栏 的 Excel Link 在 不 需要 时 ， 可 以 像 其 他 的 工具 栏 〈 例 如 “常用 ”或 “格式 ”) 
一 样 取消 ， 方 法 是 在 工具 栏 上 单 击 鼠 标 右键 ， 在 弹出 的 对 话 框 中 去 掉 “Excel Link ”。 














图 11-5 Excel Link 工具 条 


2. 设置 Excel Link 的 自 局 动 


在 安装 并 设置 Excel Link 后 ， 每 次 启动 Excel 时 Excel Link 和 MAITLAB 都 将 自动 运行 。 
但 有 时 使 用 者 可 能 并 不 希望 启动 Excel 时 MATLAB 也 自动 启动 ,那么 可 以 通过 在 Excel 数据 
表单 元 中 输入 “MLAnutoStart("no")” 实 现 关 闭 MATLAB 的 自动 启动 ， 如 图 11-6 所 示 。 该 函 
数 将 会 改变 Excel 初始 化 文件 中 对 自动 启动 Excel Link 和 MATLAB 的 设置 。 当 再 次 启动 该 文 
件 时 ，Excel Link 和 MATLAB 不 会 自动 运行 。 


| startmatlab putmatrix getmatrix evyalstring 





图 11-6 “关闭 启动 Excel 时 自动 启动 MAITLAB 


。 179。 


3. 设置 Excel Link 的 手工 启动 


用 户 也 可 以 在 Excel 环境 中 手工 启动 Excel Link 和 MATLAB。 具 体 有 两 种 办 法 : 第 一 种 
是 在 Excel 的 工作 表单 元 内 输入 “=MLOpen( )”，MATLAB 将 启动 。 第 二 种 方法 稍微 复杂 一 
些 ， 它 由 两 个 操作 步骤 组 成 

(1) 单 击 Excel 的 “工具 ”菜单 ， 选 择 “ 宏 ”菜单 项 ; 

〈2) 在 弹出 的 “ 宏 ” 对 话 框 中 输入 AI 如 图 11-7 所 示 ， 然 后 单 击 “ 执 行 ” 
按钮 即 可 。 


呈 .312 
Fr 让 





单 步 执行 G) 和 


编辑 Z) 


-1 


DT 一 一 山 除 D) ae] 
[所 有 打开 的 If 和 可 选项 @ | 


图 11-7 ”执行 MATLABinit 宏 ， 手 工 启动 MATLAB 
4， 终止 Excel Link 的 运行 


当 终止 Excel 的 时 候 ，Excel Link 和 MATLAB 会 被 同时 终止 。 如 果 需 要 在 Excel 环境 中 
终止 Excel Link 和 MATLAB 的 运行 ， 则 可 在 工作 表单 元 内 输入 “=MLClose()”。 注 意 :“=” 
必须 输入 。 

当 需 要 再 次 重新 启动 Excel Link 和 MAITLAB 时 , 可 以 选择 用 前 文 提 到 的 “二 MLOpen()” 
或 “MATLABinit” 进 行 。 

如 果 用 户 直 接 关 闭 了 MATLAB 的 主 窗口 ， 而 Excel 继续 运行 ， 就 可 以 直接 向 Excel 
=MLClose( )。MLClose( ) 命 令 将 通知 Excel MATLAB 已 经 停止 运行 。 


11.2.3 “Excel Link 的 函数 


利用 Excel Link，Excel 就 成 了 MATLAB 的 一 个 功能 强大 的 数据 存储 和 应 用 终端 。 
Excel Link 提供 了 一 系列 的 连接 管理 和 数据 处 理 函 数 来 支持 Excel 和 MATLAB 的 连接 ， 使 得 
用 户 不 必 脱 离 Excel 环境 , 而 只 需要 以 数据 表单 元 的 函数 形式 或 宏 命令 来 使 用 MATLAB 提供 
的 相关 处 理 函 数 。 


1， 连 接管 理 函 数 


Excel Link 共 提 供 了 4 个 连接 管理 函数 ， 实 现 对 Excel Link 的 初始 化 、 启 动 和 终止 ， 见 
表 11-1。 其 中 ，MATLABinit 只 能 以 宏 命令 的 方式 运行 ， 其 他 命令 均 可 4 
或 者 宏 命 令 来 执行 。 

MLAnutoStart 用 来 设置 自 启 动 ， 系 统 对 Excel Link 和 MATLAB 启动 方式 的 默认 设置 是 在 
。180 。 


等 一 次 启动 Exeel 时 自动 启动 , 如 果 选 择 手 动 启 动 ， 就 需要 MATLABinit 来 初始 化 Excel Link 
并 且 启 动 MAITLAB。MLCilose 在 保持 Excel 继续 运行 的 状态 下 ,， 用 来 终止 MATLAS 的 运行 。 
MLOpen 或 者 MAIELABinit 则 可 以 用 来 在 原来 的 Excel 进程 中 重新 启动 MATLAB。 


表 1-{ Excel Link 连接 管理 函数 














作 
MATLAHBinit 初 妊 化 Excel Link， 启 动 MAILAB 
MILAUutoStart 自动 启动 MATLAB 


MILClese 些 止 MATLAB 进程 





























MLOpen 启动 MATLAB 进 称 


2，、 数 据 管 理 函 数 


ExcelLink 提供 了 9 个 数据 管理 函数 ， 实 现 Excel 和 MATLAB 之 间 的 数据 拷贝 ， 并 可 在 
Excel 中 执行 MATLAB 命令 。 它们 摄 括 在 表 11-2 中 。 


表 11.2 “Exeel Link 数据 管理 函数 
对 于 给 定 的 Excel 数据 运行 MATLAB 命令 
MATL 点 外 sub 对 于 纤 定 的 Excel 数据 运行 MATLAS 命令 并 指定 输出 位 置 
副 除 MATLAE 托 阵 


























IELDeletekfatrix 


LEvalString 








向 Excel 数据 南 写 MATLAB 和 矩阵 的 数据 内 容 

向 Exeel 数据 才 VBA 写 MATLAB 备 阵 的 数据 内 容 
向 MATELAB 空间 汪 加 Excel 数据 表 的 数据 

用 Bxce]l 数据 表 创 建 或 覆 瘟 MATLAB 岳 阵 
用 Excel 数据 表 VBA 创建 或 徐 蔓 MATILAB 智 阵 








MLOetVar 












KRTLAPpendMatrix 





















MLPutwfatrix 














值得 注意 的 是 : 用 户 能 以 数据 表单 元 函数 的 形式 或 者 宕 命令 的 形式 调用 除 MLGetvar( ) 
和 MLPutwar( ) 以 外 的 所 有 数据 处 理 函 数 ，MLGetVar( ) 和 MLPutVart ) 只 能 以 宏 命 令 的 形式 
被 调用 。 

11.24 “ExcelLink 应 用 实例 


数据 播 值 通常 用 来 估计 已 知 数据 点 之 间 某 些 数 据点 的 数值 ， 这 一 技术 在 数值 分 析 、 图 
像 处 理 以 及 数据 可 视 化 操作 中 有 着 十 分 重要 的 应 用 价值 。MATLAB 坦 供 了 很 多 数据 播 值 函 
数 ， 这 些 函 数 使 得 用 户 订 以 在 较 商 的 执行 速度 和 在 效 的 内 存 利用 率 的 前 提 下 进行 数据 的 平 
滑 插 值 ， 

下 面 是 一 个 数据 插值 的 具体 实例 。 它 利用 Excel 数据 表 管 理 、 显 示 了 诛 始 数 据 和 插值 数据 ， 
利用 Excel Link 实现 数据 的 交 绵 ， 执 行 MATLAB 的 插值 函数 ， 调 用 MATLAB 的 图 形 显示 功 
能 ， 显 示 搬 值 数 据 的 三 维 彩 色 曲 面 。 

应 用 实例 包含 在 MATLAB 安装 目录 的 Exlink 子 目 录 下 ， 双 击 “exiisamp.xls” 局 动 Excel。 


* 181。 








可 以 看 到 6 个 标签 页 。 单 击 Sheet3 的 标签 ， 可 以 看 见 Excel 的 内 容 ， 如 图 11-8 所 示 。 数 据 表 
中 的 AS: A29.B5: B29 和 CS5: C29 单元 包含 了 测量 得 到 的 数据 ,要 求 的 插值 点 分 别 在 E11: E30 
和 F6: T6 两 个 单元 中 。 


icrosott Exzcel ExliSamp.xls 





| 喇 交 四 二 四 术 四 二 -本 KG 入 关 加 工具 人 家 全 亿 攻 中 和 -更 名 
上 口 苞 目 本 | 号 区 人 | 四 本 | 一 -| 和 工大 外 她 回 引 ia 
| stnsQeb patmatrix gataatrix eatrine 






Interpolated Values 





Yolume 
250408 Temp 
2535 .07 Tme 590 585 690 695 700 705 71.0 
2562.91 0.025| 250408 2707 32 2750.09 
2575.74 2507 26 2635.76 2704.79 2746.66 2779.96 2846.35 2907.00 
2606.16 0.075| 2510.83 2633.45 2702.58 2743.62 2775.40 284184 2902.75 
2628 58 . 引 2513.93 263134 2700.70 2740.99 277127 2837.66 2698.88 
268138 0.125| 2515.14 2629.60 2699.17 273877 2767.61 2833.83 2695 40 
2712.06 251431 2628 58 2698.02 2736.99 2764.49 2830.38 269231 
2767 52 0.175| 2511.64 2626 686 2697 25 2735 .66 2762.00 29627.31 2989 59 
2815.54 2508.10 2629.91 2696. 87 2734.79 2760.22 2824.63 2687 26 
2824.37 0225| 250337 2631.32 2696 88 273437 2759 24 2822.57 2885 .29 
2873.65 2497 84 2632.93 2697 26 2734.42 2759.10 2821.05 2883.08 
2882.20 0.275| 2491.66 2634.64 2698.05 273491 2759.76 2620.23 2682.43 
2896 49 248492 2636.35 2699.18 2735.85 2761.12 2820.16 2881.55 
2902.07 0.325| 2477 71 2638.00 2700 64 2737 22 276309 282081 2881.06 
2920.04 2470.07 2639 54 2702.41 273901 2765.59 2822.11 2880.97 
2929 .35 0.375| 2462.06 2640 .93 2704.45 2741.19 2768 .54 282398 2868129 
293423 4| 2453.70 2642.15 2706.75 2743765 2771.89 2826.33 288203 
2938 .55 0.425| 2445 03 2643.15 270926 2746.67 2775.62 2829,.13 288320 
3012.93 2436.07 2643.94 271197 2749.92 2779.68 2832.32 2884.78 
3099 .12 0.475| 2426 82 25644.48 2714684 2753 48 278406 2835 .88 2886 78 
3130.01 241731 2644.77 271784 2757 32 2788.73 2639.78 2689.19 
3179.24 0.525| 2407 54 2644.80 2720.95 2761.44 2793.67 284401 2891.99 


28 0.600 74.72 3180.71 2397 51 2644 56 2724.14 2765 79 2798.87 2848 .55 2895.19 
0.625 7500 3184.15 0.575| 2387.24 2644.05 2727 39 277037 2860431 285338 2698.77 
30 | 


2376.71 730.67 _ 2775.14 
.3 | Excel Link Fonctions 
11. Transfel original data to MATLAB 


33 0 <== MLPutMatrbd'Labelz'， A4:C4) 
0 <== MLPutMatrixt'X',A5:A29) 
-35 0 <== MLPutMatrpd'T".65:829) 


0 <== MLPutMatrixt'w,C5:C29) 





图 11-8 通过 Excel 向 MATLAB 传送 数据 ，MATLAB 插值 得 到 的 数据 


执行 步骤 如 下 : 

(1) 向 MATLAB 传送 原始 数据 。 

激活 A33 单元 ， 按 F2 键 和 回 车 键 ， 执 行 Excel Link 函数 MLPutMatrix("Labels", A4:C4)， 
将 Time、Temp 和 Volume 传递 给 MATLAB。 

类 似 地 执行 A34，A35 和 A36 ( 按 F2 键 和 回 车 键 )， 通 过 Excel Link 函数 将 原始 数据 拷 
贝 到 MATILAB 工作 区 间 中 。 

此 时 ， 用 户 可 以 在 MATLAB 工作 区 间 中 查 到 已 有 的 变量 ， 方 法 是 在 MATLAB 提示 符 下 
键入 whos 命令 : 


>> Whos 
Name Size Bytes Class 
Labels 1 208 cell array 
工 25x1l 200 double array 
V 25x1l 200 double array 
X 25x1 200 double array 


Grand total is 92 elements using 808 byte 


人 7 


可 见 ， 在 MATLAB 工作 空间 已 经 有 4 个 变量 ， 分 别 为 执行 A33、A34、A35 和 A36 单 
元 格 里 的 Excel Link 命令 所 传送 进来 的 。 

(2) 向 MATLAB 传送 需要 插值 的 点 。 

执行 A39 和 A40 里 的 函数 ， 向 MATLAB 传送 需要 插值 的 点 。 

(3) 利用 MATLAB 函数 ， 执 行 数 据 插值 操作 。 

执行 A43 单元 格 里 的 函数 ， 利 用 MATLAB 的 二 维 插值 函数 生成 需要 插值 点 的 数据 。 这 
里 采用 的 插值 函数 是 griddata( )。 

(4) 转换 得 到 的 插值 数据 矩阵 ， 并 向 Excel 回 传 数据 。 

执行 A46 和 A411 的 函数 ， 将 体积 数据 转 置 后 拷贝 到 Excel 环境 中 来 ， 数 据 添 加 到 单元 
F7:T30 中 ， 如 图 11-9 所 示 。 

(5) 绘制 插值 区 域 的 图 形 并 标注 。 

执行 A50 的 函数 ，MATLAB 以 三 维 彩 色 曲 面 图 的 形式 将 插值 数据 显示 出 来 ， 如 图 11-9 
所 示 。 

从 这 个 例子 可 以 看 出 : 可 以 利用 Excel 数据 表 管 理 、 显 示 原 始 数据 和 插值 得 到 的 数据 ， 
利用 Excel Link 实现 数据 的 交换 ， 由 MATLAB 执行 插值 和 图 形 显示 功能 ， 从 而 得 到 插值 数 
据 的 三 维 彩色 曲面 。 

注意 : 很 多 读者 也 许 感觉 通过 简单 的 操作 就 完成 了 MATLAB 和 Excel 的 数据 共享 ， 其 中 
Excel Link 的 操作 过 程 实际 上 包含 在 上 述 步 骤 中 。 例 如 ，A43 单元 的 操作 实际 上 是 执行 如 下 
指令 : MLEvalString("[XIL TL VI] = griddata(X,TVXa,Ta,'invdist)")。 其 中 ，griddata( ) 函 数 完 
成 表面 填充 ， 即 数据 的 插值 。 其 余 步 骤 请 读者 仔细 理解 。 


除了 数据 插值 外 ， 还 可 以 进行 常见 的 回归 和 曲线 拟 合 。 可 以 通过 在 ExliSamp.xls 中 单 击 
“Sheet1” 选 项 卡 中 的 例 程 进 行 理解 。 


Interpolated Data 





Temp 


图 11-9 MATLAB 得 到 的 插值 数据 图 形 
11.2.5 “Excel Link 的 注意 事项 


为 了 更 有 效 地 利用 Excel Link, 下 面 对 使 用 过 程 中 要 注意 的 一 些 细节 问题 进行 说 明 。Excel 
Link 函数 执行 的 是 一 个 特定 的 操作 ， 而 Excel 的 函数 返回 一 个 确定 的 数值 。 所 以 ，Excel 的 操 
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作 和 函数 在 Excel Link 要 数 的 控制 下 会 有 术 同 的 表现 。 
1， 大 小 写 的 区 分 


Excel Link 函数 名 对 字 巍 的 大 小 写 并 不 那 以 区 分 ， 例 如 MLPutMatrix( ) 与 miputmatix( ) 
代表 的 是 同一 个 函数 。 而 在 MATLAB 中 对 函数 名 是 区 分 大 小 写 的 ， 且 标准 的 MAILAB 冰 数 
名 通常 使 用 小 号 字 基 ， 如 fguref )。 


2 大 数 的 糖 式 


Excel 的 工作 表 等 通常 以 “十 ”或 “一 ”作为 起 始 标记 ， 例 如 : 王 MLPntMiatrix( "Labels ， 
贞 和 :全 呈 Jo . 


3.， 变量 的 定 浆 方式 

在 大 多 数 的 Excel Link 函数 中 有 两 种 定义 变量 的 方式 ， 直 笠 定 义 和 间 接 定 尽 。 将 变量 肝 
双 引 号 标记 即 可 直接 定义 变量 ， 例 如 MLDeleteMatrix( “Bonds”)， 即 将 MATILAB 中 的 息 阵 
训 量 Bonds 则 除 。 函 数 中 不 加 双 引 号 的 工作 区 单元 地 址 或 行列 名 称 被 视 为 间接 变量 ， 画 数 对 


其 指引 内 容 进 行 操 作 。 工 作 区 单元 地 址 可 以 包 售 页 表 序 号 ， 例 部 : 
Sheet3!Bt:C11， 表 示 Sheet3 表 中 BLCI1 单元 格 中 的 数据 。 


4， 日 期 


默认 的 Excel 日 期 从 1990 年 1 月 1 日 开始 ,而 MATFLAB 的 日 期 是 从 0000 年 1 月 1 日 开 
始 的 。 因 此 ， 在 MATLAB 计算 中 使 用 月 期 数字 ， 将 Excel 日 期 转换 为 MATLAB 日 期 时 需要 
加 上 常量 693960。 例 如 ，1996 年 5 月 1 日 在 Bxcel 中 是 33200， 而 MATLAB 中 则 是 729160， 
二 者 相 闫 693960。 





11.3 通过 Excel 生成 器 


11.3.1 概述 


MATLAB 提供 了 COM 生成 器 , 即 MATLAB Builder for COM,， 能 把 MATLAB 开发 的 算 
法 做 成 组 件 。 这 些 组 件 作 为 独立 的 COM 对象， 可 以 直接 被 Visual Basic、Visual C++ 或 者 其 
他 支持 COM 的 高 级 语言 所 引用 。 详 细 内 容 见 第 12 章 。 

此 外 ，MATLAS 还 提供 了 Excet 生成 器 的 工具 ， 即 MAILAB Builder for 下 xcel。 利用 该 
工具 ， 可 以 生成 DELL 组 件 和 VBA 代码 。 利 用 DLL 组 件 ， 可 以 进行 与 COM 生成 器 组 件 相 
类 似 的 操作 .VBA 代码 则 可 以 在 Excel 的 Visual Basic 编辑 器 中 直接 司 用 ,可 以 保存 为 插件 。 

通过 本 节 的 学 习 ， 希 望 了 解 通过 MATLAB Excel Builder 创建 、 打 包 并 且 发 布 Microsoft 
Excel 搬 件 的 方法 ， 所 括 创建 新 的 项 目 、 添 加 文件 创建 ExceyCOM 接口 、 导 入 YB 文件 创建 
插件 、 测 试播 件 和 打包 组 件 。 


11.3.2 ”创建 Excel 生成 器 插件 


在 MATLAB 命令 行 中 输入 命令 “mxltool” 创 建 工 程 ， 将 显示 MATLAB 的 Excel 生成 器 
主 窗 口 ， 邵 图 11-10 所 示 。 


“184 。 
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File Project Build Component Help 
Project Files 


Add Fie | 
Proiect FijeS 









CEar 


FEIOVE | 
图 11-10 ”Excel 生成 器 主 窗口 


在 窗口 中 选择 File， 选 择 New Project， 打 开 New Project Settings 对 话 框 ， 如 图 11-11 所 
示 。 在 Component name 文本 框 中 输入 组 件 的 名 称 ， 在 Class name 文本 框 中 输入 类 的 名 称 。 
在 Project version 文本 框 中 输入 组 件 的 版 本 号 , 默认 版 本 号 为 1。 在 Project directory 文本 框 中 
输入 工程 目录 , 它 指定 编译 和 打包 模型 时 将 工程 和 生成 的 文件 放 在 指定 的 目录 中 。 在 Compile 
code in 方 框 选 择 是 生成 C 代码 还 是 C++ 代码 ， 用 C 代码 写成 的 组 件 表 现 好 ， 而 C++ 组 件 的 
可 读 性 更 强 。 





图 11-11 New Project Settings 对 话 框 


创建 工程 后 ， 主 窗口 中 的 “Project”" “Build” 和 “Component” 等 菜单 选项 变 为 可 用 ， 如 
图 11-12 所 示 。 单 击 “Add File” 按 钮 或 者 在 菜单 中 依次 选择 “Project1 Add File”， 可 在 工程 中 
添加 M 文件 或 MEX 文件 。 单 击 “Remove” 按 钮 或 者 在 菜单 中 依次 选择 “Project | Remove 
File”， 将 删除 选 定 的 M 文件 或 者 MEX 文件 。 单 击 “Edit” 按 钮 或 者 双击 M 文件 的 文件 名 或 
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者 在 菜单 中 依次 选择 “Project | Edit File”， 将 在 MATLAB 编辑 器 中 打开 选 定 的 M 文件 ， 进 
行 修改 和 调试 。 但 是 ， 不 能 编辑 MEX 文件 。 
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图 11-12 ”创建 工程 后 的 Excel 生成 器 主 窗口 


在 定义 工程 设置 和 添加 必要 的 M 函数 和 MEX 函数 后 ， 可 以 生成 一 个 可 配置 的 DLL 文 
件 和 必要 的 VBA 代码 。 依 次 选择 菜单 选项 “Build | ExcelMCOM Files” 或 者 单 击 “Build” 按 
钮 ， 激 活 MATLAB 编辑 器 。Builder Status 面板 显示 生成 过 程 中 的 输出 信息 ， 并 报告 遇 到 的 
任何 问题 ， 例 如 M 文件 语法 错误 等 。 生 成 的 结果 是 一 个 DLL 文件 和 一 个 VBA 文件 〈.bas )。 
生成 的 DLL 会 自动 注册 到 系统 中 。 依 次 选择 菜单 中 “Build | Clear Status” 或 者 单 击 “Clear” 
按钮 , 可 以 清除 Builder Status 面板 的 内 容 。 生成 过 程 中 的 输出 信息 会 保存 在 build.log 文件 中 ， 
它 可 以 通过 依次 选取 “Build | Open Build Log” 打 开 。 该 Log 文件 提供 了 一 个 生成 过 程 的 记 
录 ， 在 清除 Builder Status 面板 的 内 容 后 还 可 以 引用 。 

对 于 VBA 模块 的 测试 ， 可 以 通过 在 Excel 的 Visual Basic 编辑 器 中 导入 VBA 文件 和 
激活 Excel 工作 表 中 的 函数 来 进行 .要 把 VBA 代码 导入 到 Excel 的 Visual Basic 编辑 器 中 ， 
方法 是 启动 Excel， 并 依次 选取 菜单 选项 “工具 ”人 “ 宏 人“Visual Basic 编辑 器 ”， 然 后 在 
Microsoft Visual Basic 窗口 中 ， 依 次 选择 “文件 “导入 文件 ?>， 然 后 选择 要 打开 的 VBA 
文件 。 

由 于 MATLAB 提供 的 Excel 生成 器 的 工具 ( 即 MATLAB Builder for Excel) 相对 来 说 
较为 复杂 ， 而 且 使 用 起 来 不 如 Excel Link 直观 、 方 便 。 尽 管 它 生成 的 VBA 代码 可 以 直接 在 
Visual Basic 中 使 用 ， 但 应 用 还 是 较 少 。 事 实 上 ，MATILAB 和 Visual Basic 的 混合 编程 ， 完 全 
可 以 通过 其 他 的 方式 (例如 ActiveX、DDE 等 ) 实现 。 因 此 ， 对 MATLAB 的 Excel 生成 器 ， 
本 节 仅 进行 了 简单 的 介绍 。 感 兴趣 的 读者 可 以 阅读 MAILAB 的 帮助 文件 ， 方 法 是 单 击 图 
11-12 中 Excel 生成 器 主 窗口 的 “Help” 菜 单 ， 选择 “MATILAB Builder for Excel” 和 “MATLAB 
Builder for Excel Help” 子 菜单 ， 里 面 既 包含 了 本 节 所 介绍 的 基础 知识 ， 也 包含 了 语法 知识 和 

- 些 例 程 。 


11.4 直接 将 MATLAB 工作 区 间 的 数据 拷贝 到 Excel 
MATLAB 6.0 以 后 允许 将 MATLAB 工作 区 间 的 数据 拷贝 到 Excel 中 ， 以 利用 Excel 的 图 
表 向 导 灵 活 地 生成 各 种 形式 的 图 形 ， 如 折线 图 、 散 点 图 、 饼 图 等 。 它 在 科研 论文 的 写作 中 很 
实用 。 下 面 通 过 一 个 简单 的 实例 来 说 明 。 
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在 MATLAB 环境 下 键入 以 下 命令 ， 生 成 t yl, y2 等 3 个 变量 。 
>> t=1:0; 
>> yY1=0.8*t-1; 
>> Y2=0.5*t+2; 
>> plot(ty1,r+ ,ty2,b*# ); 


MATILAB 执行 后 ， 会 出 现 如 图 11-13 所 示 的 图 形 。 
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图 11-13 ”运行 结果 的 MATLAB 图 形 显 示 


将 MATLAB 工作 空间 中 的 变量 导入 Excel 的 方法 是 : 单 击 MATLAB 工作 区 的 变量 名 ， 
然后 选中 需要 拷贝 的 数据 ， 单 击 右键 选择 “复制 ”， 然 后 在 Excel 中 选中 单元 格 后 单 击 鼠标 右 
键 并 选择 “粘贴 >。 图 11-14 为 从 MATLAB 工作 区 复制 y2 变量 到 Excel 的 过 程 。 

复制 MATLAB 工作 区 中 的 数据 到 Excel 后 ， 选 中 刚 复 制 过 来 的 数据 ， 再 单 击 Excel 工具 
栏 的 图 表 向 导 按钮 目 ， 按 照 提示 生成 图 表 。 图 11-15 为 将 yl, y2 复制 到 Excel 后 按照 默认 设 
置 生成 的 图 形 。 

按照 默认 设置 生成 的 图 形 可 能 不 完全 符合 论文 中 图 表 的 要 求 ， 还 需要 添加 一 些 标题 头 、 
更 改 坐 标 刻 度 等 。 在 Excel 中 ， 它 们 可 以 通过 更 改 其 属性 灵活 地 实现 。 
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图 11-14_ MATLAB 工作 区 中 变量 的 复制 
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图 11-15 ”通过 Excel 生成 的 图 形 
11.$ 小 结 


本 章 主要 介绍 了 Excel 和 MATLAB 共享 数据 和 混合 编程 的 方法 ， 包 括 Excel Link 和 
MATLAB Builder for Excel。 其 中 ， 通 过 Excel Link 实现 MATLAB 和 Excel 链接 的 方法 较为 
常见 ， 应 重点 掌握 。 利 用 Excel Link 实现 MATLAB 和 Excel 的 链接 ， 可 以 在 Excel 中 将 工作 
区 中 的 变量 导入 到 MATLAB 中 ， 并 调用 MATLAB 的 函数 处 理 ， 然 后 将 结果 返 加 到 Excel 中 
处 理 ， 如 利用 图 表 向 导 生 成 需要 的 图 表 。 这 样 有 助 于 发 挥 MATLAB 强大 的 数据 处 理 能 力 ， 
可 以 充分 利用 Excel 的 数据 统计 能 力 ， 生 成 需要 的 报表 和 图 表 等 。 
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第 12 章 通过 MATLAB COM Builqer 
实现 混合 编程 


12.1 COM 基础 知识 


组 件 对 象 模型 COM，Component Object Model) 是 Microsoft 提出 的 以 组 件 为 发 布 单 元 
的 软件 开发 技术 。COM 有 具有 谐 言 、 平 台 无 关 的 特性 ， 可 以 方便 软件 的 升级 、 定 制 与 替换 ， 
是 理想 的 软件 应 用 方案 。 简 言 之 ，COM 是 一 种 客户 端 /服务 器 《CS) 标准 ， 提 供 了 一 类 应 用 
程序 接口 ， 允 许 任 何 符 合 标 准 的 程序 访问 。 

COM 为 纽 件 软件 和 应 用 程序 之 间 进 行 通信 提供 了 统一 的 标准 ， 和 为 组 件 程 序 提供 了 一 
个 面向 对 象 的 活动 环境 。COM 标准 包括 规范 和 实现 两 大 部 分 ， 规 范 部 分 定义 了 组 件 和 组 件 
之 间 通 信 的 机 制 ， 这 些 规范 不 依赖 于 任何 特定 的 语言 和 操作 系统 ， 只 要 按照 该 规范 ， 任 何 语 
言 都 可 使 用 。COM 标准 的 实现 部 分 是 COM 库 ，COM 库 为 COM 规范 的 具体 实现 提供 了 一 
些 核心 服务 。 

出 于 市 场 等 方面 的 原因 ， 微 软 公 司 曾 对 由 它 自己 推出 的 COM 及 其 应 用 技术 采用 过 不 问 
的 名 称 ， 从 刚 开始 的 对 象 链接 与 嵌入 (OLE)， 到 ActiveX 控件 及 其 自动 化 ， 再 到 组 件 对 象 模 
型 COM 及 COM+， 因 此 造成 了 一 些 命 名 上 的 混乱 ， 直接 影响 了 很 多 读者 的 理解 。 尽 管 这 样 ， 
这 些 名 称 所 代表 的 模型 及 技术 还 是 有 一 些 细微 的 差别 。 

组 件 对 象 模型 COM) 基本 上 是 一 项 技术 ， 它 定义 了 一 种 标准 的 方式 ， 使 得 客户 端 模 块 
和 服务 器 模块 可 以 通过 一 个 特殊 接口 进行 和 信 。 在 这 里 “模块 ”表示 应 用 程序 或 动态 链接 库 ， 
两 个 模块 可 以 在 相同 的 计算 机 中 或 通过 网 络 在 不 同 的 计算 机 之 间 执 行 。 目 前 ， 基 本 上 上 所 有 
基于 Windows 的 开发 工具 都 支持 这 项 技术 。 例 如 ，Microsoft Word，BExcel 等 。 这 些 应 用 程 
序 以 自动 化 对 象 的 方式 暴露 出 内 部 的 数据 和 功能 ， 其 他 应 用 程序 作为 客户 程序 〈 或 自动 化 
控制 器 ) 可 以 访问 这 些 自动 化 对 狂 。 大 们 所 熟知 的 DirectX 多 媒体 开发 包 也 建立 在 COM 组 
件 技术 之 上 。 

COM 是 面向 对 象 的 开发 模型 ，COM 对 象 的 概念 同 C++ 对 象 的 概念 相似 。 面 向 对 象 的 开 
发 模型 将 数据 和 功能 按照 某 种 意义 组 合 在 一 起 形成 类 ， 对 象 就 是 类 的 实例 。 接 口 是 COM 对 
象 与 外 界 交 流 的 唯一 方式 。 因 为 COM 对 象 是 对 现实 世界 中 某 种 事物 的 抽象 ， 所 以 其 接口 的 
所 有 基数 在 革 种 程度 上 有 其 相关 性 。COM 在 Windows 平台 上 以 动态 链接 库 的 形式 存在 。 采 
用 动态 链接 库 可 以 让 COM 组 件 客户 决定 什么 时 候 加 载 所 需要 的 COM 组 件 。 为 了 区 分 不 同 
类 别 、 不 同 开发 商 的 COM 组 件 ，COM 规范 采用 一 个 128 位 长 度 的 常量 来 标志 COM 组 件 。 
同样 ， 为 了 唯一 地 标志 组 件 的 接口 ，COM 规范 也 采用 这 种 128 位 GUID 作为 接口 的 标志 。 
为 了 区 分 组 件 和 接口 的 标志 ， 一 般 将 COM 组 件 的 GUID 标志 称 为 CLSID， 将 接口 的 标志 称 
为 IID。 

显然 ，COM 作为 不 同 语言 之 间 的 协作 开发 是 非常 方便 的 。COM 开发 架构 是 以 组 件 为 基 
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而 的 ， 因 而 可 以 把 组 件 看 做 用 于 “搭建 ”软件 的 积 林 块 。 采用 这 种 开发 模式 ， 除 了 路 语 次 的 
特性 以 外 ， 膛 可 以 带 来 很 多 好 处 ， 如 采用 组 件 蔡 换 使 得 软件 系统 的 升级 换代 更加 简单 、 可 以 
在 多 个 不 同 的 软件 开发 应 用 中 重复 利用 同一 个 组 件 等 。 

基于 COM 的 更 详细 信息 ， 请 读者 参考 相关 书籍 。 本 章 着 重 介绍 MATLAB 提供 的 COM 
Builder 工具 及 其 使 用 ， 











122 MATLAB 支持 的 组 件 自 动 化 


MATLAB 支持 组 件 自 动 化 (COM Automation) ， 即 - 个 COM 协议 ， 该 协议 允许 一 个 
程序 或 组 件 去 控制 另 - :个 程序 或 组 件 。 因此 ,MATLAB 六 持 的 组 件 技术 可 以 分 为 以 于 于 个 方 
面 的 内 容 ; 

e。 在 其 他 程序 下 运行 MATLAB 的 组 件 〈 包 括 MATLAB 上 自 牙 ) ; 

。 将 所 需 的 MATLAE 功能 《〈 通 常 由 若干 个 M 和 MEX 文件 枸 成 ) ， 利 用 MATLAH 目 

带 的 COM Builder 工具 自动 转换 生成 组 件 ， 以 供 其 他 程序 使 用 。 

其 中 ， 两 种 方式 归 于 理解 ， 广 便 实 有 用， 但 是 必须 是 在 实 装 有 MATLAB 的 环境 下 才能 
实行 ， 这 不 利于 开发 独立 的 应 用 程序 。 第 三 种 方式 使 用 MATLAB COM Bauilder 将 所 需 的 
MATLAB 功能 (通常 由 若干 个 .m 和 . mex 文件 构成 ) 自动 转换 成 一 个 组 件 库 ， 供 其 他 程序 引 
用 ， 问 赔 离 MATLAB 的 环境 运行 。 


12.2.f 在 MATLAB 下 运行 其 他 软件 的 组 件 


在 MATLAE 中 运行 其 他 软件 的 纽 件 ， 主 要 用 于 扩展 MATILAB 功能 ， 特别 赴 那 些 
MATLAB 相对 来 说 较 弱 的 巧 能， 例如 访问 硬件 的 能 力 等 。 实 现时 ， 以 MATLAB 为 主 ， 实 现 
代码 复 用 。MATLAB 支持 ActiveX。 在 MATLAB 中 调用 ActiveX 通常 包含 以 下 4 个 步 双 。 





























1. 创建 控制 


旦 = aeCEEeontroltProgid T, Position [, fig hanqdle [1 callpackl 
{eventl eventhandlerli event2 eventhatdler2， [lenarmme]]T) 


其 中 ，progid 是 要 生成 的 ActiveX 控制 的 和 名称， 由 生产 商 担 供 。 使 用 时 ， 它 必 须 与 生产 
高 提供 的 PROGID ，- 致 。pesition 是 一 个 位 置 问 量 ， 指 定 和，Y 坐标 和 宽 、 高 信息 ， 默认 值 
为 [20, 20. 60. 60] , fig_handle 是 要 生成 ActiveX 控制 的 图 形 窗 句柄 。 回 调 函 数 callback 是 避 可 
变数 目 参 数 的 M 冰 数 名 称 。 


2， 证 置 属 性 


可 以 通过 MATLAB 的 get 和 set 命令 设置 属性 。 它 们 的 格式 如 下 : 
vY = getth[. Propertyname 了]) 





























setfh，Propertyname'，vYalue[， 'Propertynarme2. value2, 


其 中 ， propertyname 因 属 性 的 名 称 ，value 为 属性 值 ，h 是 函数 actxcontrol ) 返 问 的 匈 枉 。 
函数 setf ) 一 次 可 以 同时 设置 多 个 属性 的 值 。 比 外 ， 还 可 以 通过 函数 jnspect ) 查 看 属性 信 ， 并 
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进行 必要 的 修改 
3 触发 方法 
v=invoke(h, [methodname' [, argl, arg2, ...]]) 


国 数 invoke() 用 于 触发 ， 它 的 格式 如 下 : 


v=invoke(h, [methodname' [, argl, arg2, .…]]) 


其 中 ，methodname 是 一 个 字符 串 ， 它 是 要 触发 的 方法 的 名 称 ，argn 是 所 需要 的 触发 事件 
的 参数 


函数 methods () 可 用 于 返回 所 有 的 事件 , methodview () 则 返回 所 有 的 事件 及 其 变量 名 称 
4.， 处 理事 件 


函数 events( ) 显 示 ActiveX 支持 的 所 有 事件 ， 函 数 eventlisteners( ) 则 列 出 所 有 事件 ， 以 及 
回调 函数 或 事件 句柄 
F 面 给 出 两 个 MATLAB 作为 自动 化 客户 端的 实例 .一 个 在 MATAB 环境 中 通过 ActiveX 
调用 Windows Media Player， 另 一 个 是 MATLAB 自 带 的 例子 ， 把 MATLAB 作为 自动 化 客户 
端 ， 把 Excel 作为 服务 器 。 
【 例 12-1】 在 MATLAB 命令 窗 键 入 如 下 代码 
m=figure; 多 图 形 窗口 的 句柄 
% MediaPlayerMediaPlayer 是 Windows Media Player 的 PROGID 
h=actxcontrol(MediaPlayerMediaPlayer1 , [0 0 300 300], m); 
输出 结果 如 图 12-1 所 示 ， 可 见 在 MATLAB 的 图 形 窗口 中 启动 了 Windows Media Player。 
它 与 在 Windows 环境 下 单独 启动 Media Player 几乎 完全 一 样 
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图 12-1 MATLAB 图 形 窗 中 启动 Media Player 的 界面 
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为 了 播放 视频 文件 ， 必 须 设置 要 播放 的 视频 文件 的 名 称 。 假 设 视频 文件 位 于 F:movies 
目录 下 ， 文 件 名 为 Aryan.mpg。 为 此 ， 在 MATLAB 环境 下 键入 以 下 语句 : 
set(h, filename'，F:\movies\Aryan.mpg'); 


通过 函数 set( ) 可 以 设置 Media Player 的 属性 值 如 图 12-2 所 示 。 通过 函数 propedit ( ) 查 看 
属性 值 ， 如 图 12-3 所 示 。 





妈 Property Inspector 
铺 CoM.mediaplayermediaplayer'1 


ActiveMovie Interface.mediaplayerrmediaplz 
AllowChangeDisplaySize 厅 True 
AllowScan 厅 True 
AnimationAtStat 厅 True 
AudioStream -1 
AutoRewind 时 | False 
AutoSize 出 False 
AutoStart True 
Balance 

Bandwidth 

BaseURL 

BufferingCount 

BufferingProgress 

BufferingTime 

CanPreview 


CanScan 
CanSeek 
CanSeekToMarkers 


CaptioninglD 
ChannelDescription 
ChannelName 
ChannelURL 
ClickToPlay 





12-2 ”属性 观察 器 





图 12-3 ”Media Player 播放 属性 的 选项 设置 对 话 框 
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在 MAILAH 命令 行 键 入 下 列 命令 可 以 启动 视频 文件 的 播放 。 其 中 ，play 为 要 触发 的 播 
放 事 件 名 称 。 


>>invoke(h，play)， 
在 MATLAB 命令 行 键 入 “methodsthbj”， 可 以 列 出 mediaplayermediaplayer1l 支持 的 所 有 
事件 ， 妇 纳 王 表 12-1 中 。 


表 12-1 Media Player 支持 的 ActiveX 事件 


shovpiee 
cocosemsaiel | assaeeeg | upy | mm 




















GecurmEaog | Ne | aasepmpem 
an | om | am | m 
Goaemoe | pos | 吧 | caweanmipsnim 


【 例 12-2】 以 下 是 MATLAB 作为 自动 化 客户 端 调用 Excel 服务 器 的 例 程 源 代 码 ， 说 明 

请 参考 源 代 码 中 的 注释 。 它 将 MATLAB 工作 空间 中 的 变量 导入 Excel， 程 序 的 运行 结果 如 
图 12-4 所 示 。 

驳 首先 ， 打 开 一 个 Exeel 服务 器 

h=actxServerCExcel.applicatton'y: 

马 插入 一 个 新 的 工作 敌 

eWorkhooks=zeth，Workbooks ); 

eWorkbook=AddteWotkbooksh 

Settb，"Wisible', 17 


激活 第 2 个 表 

上 ActiveWOi 放 book=Set(h， 生 ctiveWerkbook'); 
eSheets=get[eActiveWOorkhbook，Sheets )， 

已 号 heet2=TItiennafeSheets, 了 之) 

各 ctivyate(eSheet2); 


台 获取 表 的 句柄 

eActiveSheet=getth ,ActiveSheet 

各 把 MATLAB 数组 导入 Excel 

A=[T12;3 4]， 

eActiveSheetRange = RangelfeActiveSheet， 六 二 了 2 
seeEACfiveSheetRangse，Value， 各 六 
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% 返回 一 个 范围 。 它 是 一 个 单元 数组 ， 因 为 单元 范围 可 以 包含 不 同类 型 的 数据 
eRange=Range(eActiveSheet，'Al'，B2)): 
B=get(eRange，Value ); 


% 转换 为 double 矩阵 ， 单 元 数组 必须 只 包含 标量 
B=reshape([B1{: 门 , size(B)); 





% 保存 工作 短 
SaveAs(eWorkbook, myfile.xls'); 
= 口头 | 
三 才 四 四 视 国 四 扳 入 中 格式 @) 工具 爷 ) 数据 @) 窗口 四 帮助 四) | 
| | 相关 | 


口 安 目 呈 @@ 芝 | 义 四 本 | 一- 凶 工 大 外 她 回 阅 | 天 引 











图 12-4 ”Excel 作为 MATLAB 客户 端的 服务 器 
12.2.2 ”在 其 他 程序 下 运行 MATLAB 的 组 件 


Microsoft 把 所 有 以 COM 为 基础 的 技术 统称 为 ActiveX 技术 。 和 上 自动化 是 大 多 数 ActiveX 
技术 的 基础 ， 它 可 使 解释 性 的 宏 语 言 ， 例 如 Visual Basic， 能 够 在 不 了 解 应 用 程序 实现 细节 的 
情况 下 控制 自动 化 对 象 。 MATLAB 实现 了 ActiveX 自动 化 服务 支持 。 MATLAB ActiveX 自动 
化 服务 的 功能 主要 包括 在 MATLAB 工作 空间 执行 MATLAB 命令 , 以 及 直接 从 工作 空间 存 取 
和 矩阵 等 。 下 面 列 出 了 MATLAB 自动 化 服务 支持 的 几 个 主要 方法 ， 其 参数 和 返回 值 的 类 型 采 
用 ActiveX 上 自动 化 协议 所 定义 的 与 语言 无 关 的 类 型 描述 。 

记 ”BSTR Execute([in] BSTR Command) 

BSTR 表示 宽 字 符 串 类 型 ， 它 与 Visual Basic 存储 字符 串 所 采用 的 数据 格式 相同 。 该 方法 
接收 字符 串 命令 并 在 MATLAB 中 执行 ， 将 结果 以 字符 串 形 式 返回 。 

记 void GetFullMatrix([in] BSTR Name，[in] BSTR Workspace，[in, outl] SAFEARRAY 

(double)* pr，[in, out] SAFEARRAY(double)* pi); 

该 方法 从 指定 的 工作 空间 检索 一 个 完整 的 一 维 或 二 维 的 实 型 或 虚 型 mxArray， 其 实 部 和 
虚 部 被 分 别 存 放 到 两 个 单独 的 Double 型 数组 中 。 

这 ”void PutFullMatrix([in] BSTR Name, [in] BSTR Workspace, [in] SAFEARRAY(double) 

pr，[in] SAFEARRAY(double) pi); 

该 方法 将 一 个 mxArray 放 入 指定 的 工作 空间 。 各 参数 的 含义 及 调用 方法 与 GetFullMatrix 
方法 类 似 。 

各 种 高 级 语言 对 组 件 技术 的 支持 大 同 小 异 。 现 以 Visual Basic 为 例 说 明 通 过 ActiveX 自动 
化 接口 可 将 MATLAB 作为 Visual Basic 语言 的 一 个 ActiveX 部 件 调用 。 部 分 示例 代码 如 下 : 
。194。 





Dim MATLAB As Dhbject "声明 对 象 
Pim MReali(5，5) As Double “声明 存放 实 部 的 Pouble 型 数组 


Dim MImagl ] As Double "声明 存放 应 部 的 Deuble 型 数组 
Set MATLAB=CreateDbject( MATLAAB.Applicatiom ' 补 始 化 对 鳞 
MATLAB,Executefea=hilb(5y”) :执行 MATLAB 人 辣 令 

















' 将 结果 分 别 存 六 宝 部 、 虚 部 数组 
Call MATIAEB.GetFullkiattxt abase”"，Reali，MImag》 


12.2.3 MATLAB COM Builder 简介 


2002 年 ，MathwWorks 公司 在 其 推出 的 MATLAB 65 版 本 中 新 增 了 一 个 功能 强大 的 
MATLAB COM Builder 模块 . 它 提供 了 简单 、 易 用 的 图 形 化 用 户 界 而 ,帮助 用 户 将 MATLAEB 
的 M 函数 文件 自动 、 快速 地 转变 为 独立 的 进程 内 COM 组件 ， 它 以 .DLL (AcetiveX DLL 形 
起 被 装 入 到 客户 的 进程 空间 中 , 可 以 在 任何 支持 COM 组 件 的 应 用 中 使 用 , 例如 Visual C++， 
Visual Basic，Micresoft Excel 等 。 

MATLAB COM Buiider 编译 的 COM 组 件 实现 了 标准 的 IDispatch 接口 ， 提 供 了 对 自动 
化 (Automation) 的 支持 。 和 动 化 对 象 公开 了 方法 和 属性 ， 方 法 指 自动 化 对 象 提 供 的 功能 服 
务 ， 类 似 十 类 的 成 员 函 数 ; 属性 指 自动 化 对 外 的 数据 特征 ， 类 似 于 成 员 变量 。 另 外 ， 为 了 夭 
现 组 件 对 象 与 客户 端的 通信 , 增强 了 程序 的 交互 性 , MATLAB 组 件 也 支持 事件 .事件 是 回调 
函数 ， 由 客户 端 实现 ， 事 件 发 和 后 时 ， 组 件 会 自动 调用 实现 的 客户 端 事件 函数 。 

应 用 组 件 技术 实现 MATLAB 与 其 他 高 级 语言 混 台 编程 ， 具 有 许多 独特 的 优点 ， 主 要 体 
现在 以 下 几 个 方面 : 

s。 适应 性 广 ， 可 用 于 Visual C++、VB、Delphi、C 等 各 种 支持 组 件 技 术 的 高 级 语言 中 ; 

。 方便 应 活 ， 既 可 以 与 MATLAB 协同 工作 ， 也 可 以 生成 不 依赖 MATLAB 环境 的 独立 

程序 ， 因 此 可 获得 最 快 的 运行 速 产 ; 

s 不 需 进 行 代码 转换 ， 使 得 编程 风格 一 仇 ， 可 读 性 好 。 

因此 ， 本 章 着 重 介绍 MATLAB COM Builder， 包 括 它 的 安装 、 配 置 CIC++ 编 译 内 以 履 在 
Visual C++ 中 使 用 MATLAB COM Builder 生成 的 组 件 。 















































12.3 MATILAB COM Builder 使 用 


12.3.1 配置 MATLAB CA/C++ 编 译 顷 


MATLAB COM Builder 是 MATLAB Compiler 的 扩展 ， 创 建 COM 组 件 之 前 应 安装 
MATLAB 65 中 的 MATLAB Compiler 和 MATLAB COM Builder 等 模块 。 另 外 ， 还 需 对 
MATLAB Compjler 进行 必要 的 配置 ， 方 法 为 : 在 MATLAB 命令 窗口 键入 “mbuild -setup”， 
将 出 现 选 择 编译 器 的 提问 ， 所 列 出 的 编译 器 包括 计算 机 中 已 安 装 的 各 种 C/C ++ 编译 器 ， 选 
择 Visual C++ 60。 详细 的 配置 过 程 与 第 9 章 中 MATLAB Add-in 的 安装 相同 , 此 处 不 再 重复 。 
实际 上 ,COM 组 件 在 生成 过 程 中 是 首先 利用 mcc 命令 调用 MATLAB 编译 器 , 然后 调用 Visual 
C++ 编译 器 。 


12.3.2 使 用 MATLAB COM Builder 


用 MATLAB COM 生成 器 创建 COM 组 件 是 一 个 简单 的 过 程 。 有 具体 的 操作 流程 包括 以 下 
“195 。 








4 个 步骤 : 启动 COM Builder， 创 建 一 个 工程 ， 设 置 相 关 属 性 ，@@ 增 加 所 需 的 功能 ， 即 添 


加 相应 的 . m 和 . mex 文件 ， 添 加 组 件 的 属性 和 事件 ; @@ 编 译 创 建 组 件 ; 图 包装 、 注 册 和 发 布 
组 件 文件 。 


1 创建 工程 


配置 完 MATLAB 的 C/C++ 编 译 器 后 ， 在 MATLAB 命令 行 通过 运行 comtool 命令 启动 
MATLAB COM Builder 图 形 用 户 界 面 ， 如 图 12-5 所 示 。 


本 ATILAE CO 和 Builder 





File Project Build Component Help 














图 12-5 MATLAB COM Builder 图 形 用 户 界面 


在 File 菜单 中 选择 New Project 选项 ， 打 开 New Project Setting 对 话 框 ， 如 图 12-6 所 示 。 
在 Component Name 文本 框 中 输入 组 件 (DLL 文件 ) 的 名 称 。 输 入 组 件 名 后 ， 生 成 器 将 自动 
在 Class name 文本 框 中 输入 与 组 件 名 相同 的 名 称 。 用 户 可 以 根据 需要 进行 修改 。 尽 管 组 件 名 
和 类 名 可 以 相同 ， 但 是 必须 注意 组 件 名 不 能 与 任何 M 文件 或 MEX 文件 的 文件 名 相同 。 


) Wew Project SettR RE 二 =|OIxl 





图 12-6 ”New Project Setting 对 话 框 








若 训 把 类 添加 到 组 件 中 ， 则 在 Class name 文本 框 中 输入 类 名 ， 并 单 击 “Add>>” 按 领 。 
滞 加 的 类 将 显示 在 “Glasses” 列 表 框 中 。 在 “Project Version ”文本 框 中 设置 组 件 的 版 本 喉 ， 
默认 的 组 件 版 本 号 为 10。 在 “Project directoty” 文 本 框 指定 在 编译 和 打包 模型 时 ， 工 程 和 相 
基文 件 的 存放 位 置 。 工 程 目 录 由 当前 目录 和 组 件 名 自动 组 合生 成 。 在 “Compile code iD” 组 
合 框 中 进行 选择 ， 可 以 设置 生成 和 或 者 C++ 代码 。 一 般 来 说 ， 用 C 代码 编 气 的 组 件 运 行 得 好 
一些 ， 币 用 C++ 代码 编号 则 可 读 性 更 强 ， 便 于 修改 和 维护 。 在 “Compiler DOption” 可 以 对 编 
泽 过 程 进行 选择 .如 果 异 型 中 包 售 MATLAB 图 形 句柄 用 , 则 通过 选择 “Use Handle Graphics 
Library”， 在 工程 中 包 省 MATLAB CAC++ 图 形 库 。 如 果 选 择 “Build debug version”， 则 可 
以 创建 编译 模型 的 一 个 调试 版 本 ， 并 能 够 在 调用 MATLAB 编译 器 时 指定 详细 输出 。 该 调试 
版 本 -方面 允许 跟 了 中, 使 出 错 报 告 显示 M 文件 和 发 生 错误 的 行 .所 有 跟踪 信息 都 会 进行 报 衙 。 
如 果 不 进行 调试 , 则 得 不 到 MATLAB 代码 中 发 生 错 误 的 位 置 和 提示 .。 田 一 方面 , 它 允 许 Visual 
Studio 调试 器 进行 完整 的 调试 ， 

设置 完成 后 ， 单 击 “OK” 接 钮 ， 即 创建 了 一 个 工程 《后 绢 为 .cbl) ， 工 程 文件 被 自动 地 
添加 到 工程 月 录 中 。 

















2.， 党 理 M 文 件 和 MEX 文件 


创建 工程 后 ， 生 成 器 的 主 窗口 中 的 “Project”、“Build” 和 “Component” 等 3 个 葬 单 
就 变 为 可 用 。 此 时 ， 痢 击 “Add File” 按 钮 可 以 添加 M 文件 和 MEX 文件 到 工程 中 。 一 次 只 
能 添 吉 一 个 文件 。 单 击 “Remove” 按 钥 可 以 删除 选 定 的 M 文件 或 MEX 文件 ,选择 M 文件 
后 单 击 “Edit” 按 馈 ， 可 以 在 MATLAB 编辑 器 中 打开 该 M 区 件 并 进行 编辑 和 调试 ， 但 是 不 
能 编辑 MEX 文件 。 

M 函数 文件 既 能 够 接收 参数 ， 也 允许 返回 参数 。 另 外 ， 需 要 注意 M 函数 文件 的 交 件 名 
必须 和 国 数 名 一 致 ， 而 且 ， MATLAB COM Builder 并 不 支持 所 有 的 MATLAB 范 数 ， 如 某 些 
工具 箱 函数 ， 有 具体 限制 可 参阅 MATLAB 提供 的 编译 器 用 户 手册 。 


3 生成 组 件 


定义 于 程 设 置 并 添加 必要 的 M 函数 和 MEX 函数 哲 , 可 以 道 过 “ Build” 按钮 或 者 “Build” 
革 单 中 的 “COM Object” 选 项 来 调用 MATLAB 编译 器 。 中 间 源 文件 会 写 到 工程 目录 的 sre 
子 目录 中 ， 将 必要 的 输出 文件 号 到 distrib 目录 中 。 

“Build Status” 面 板 显示 生成 过 程 的 输出 ， 通 知 遇 到 的 任何 问题 。 生 成 COM 过 程 完 成 
后 ,在 distrib 子 目录 下 会 生成 一 个 DLL 文件 .生成 的 DLL 文件 自动 注册 到 系统 中 .选择 "Build” 
菜单 中 的 “Clear Status” 选 项 ， 将 清除 “Build Status” 面 挨 内 容 。 牛 成 过 程 中 会 生成 一 个 口 
志文 件 tmild.leg, 它 提供 了 生成 过 程 的 记录 可 以 通过 选择 “Build” 菜单 中 的 “Open Build Log 
选项 打开 。 


4， 和 打包 和 分 发 组 件 


一 巨 模 型 编译 成 功 并 进行 了 测试 ， 就 可 以 把 它 打包 并 分 发 给 终端 用 户 。 从 “Cormpenent 
菜单 中 选择 “Package Component” 选 项 ， 将 创建 一 个 自 解 卜 的 可 执行 程序 。 它 包 舍 表 12-2 
所 示 的 文件 。 























= 








表 12-2 自 解 计 可 执行 程序 包含 的 文件 
交 “人 考 二 能 
_install,bal 由 白 解压 可 执行 程序 运行 的 烦 林 














<Componentndrme_projgetversion>.q]] 纺 译 后 的 组 件 
mglinstallerexe MATLAB 数学 库 和 图 形 亩 实意 器 


Tiweormmtil alt COM 生成 踏 上 计 库 

















mWTeSYT.PXE 寿 计 算 寺 入 册 DEL 的 可 执行 程序 





该 自 解压 可 执行 文件 后 缀 为 .exe。 在 计算 机 上 按 以 证 步骤 运行 安装 右 : 
六 mglinstaller 安装 MATLAB CAC++ 数 学 库 和 图 形 库 
添 如 mealinstaller 创建 的 日 录 ; 


> mwregsyr 注册 mwcomnutil,dll 和 <componentname_projeetverston>.dil。 
12.3.3 MATLAB COM Builder 工具 库 


MATLAB COM Builder 包含 一 组 非常 方 使 的 数据 转换 上 有 具 库 ， 包 含 了 用 于 处 理 MATLAB 
特有 的 数据 结构 与 Visual C++ 客户 交互 的 工具 ， 例 如 结构 (stmuet) 、 元 纽 【cell) 和 稀 黄 算 
阵 等 . 这 个 工具 库 通过 COM 的 形式 提供 给 Visuat C++ 的 用 户 , 主要 包括 夺 mwcomutil.qn 
末 以 通过 DOS 下 的 mwregsvr mwcomutitdl 命令 进行 注册 ,也 可 以 通过 上 而 的 办 法 直接 使 用 : 

页 Import “DAmatlab6pssbinywin32wnwcotnuntil.dl” raw_jntertaces_only 

MATLAB COM Builder 工具 库 包 舍 下 而 了 个 主 归 的 类 : 

六 MWUHi 类 

对 于 COMBuilder 与 客户 而 言 ,MWUti 可 以 提供 将 VARIANT 变 关 组 成 YARIANT 数据 ， 
将 AT 数组 拆 分 为 VARIANT 变量 以 及 COM Builder 与 VARIANT 日 期 类 型 之 癌 的 转 
换 等 切 能 ， 册 于 只 是 利用 了 MWUtit 的 功能 函数 ， 在 客户 程序 中 最 好 存在 个 全 局 范围 内 的 
MYWUtil 对 二 。 

记 MWFlags 尖 

它 和 包含- 一 组 数组 格式 化 和 数据 转换 标志 ， 所 有 的 MATLAB COM Builder 组 件 都 也 省 一 

个 MWFlags 实例 。 通 过 修改 MWFlags， 可 以 方便 地 改变 对 象 的 数据 转换 规则 。 
大 MWStmaect 类 
使 用 MWStmuct 类 ， 可 以 使 调用 MATLAB COM Builder 的 客户 程序 对 MATLAB 结构 体 
进行 操作 。 

交 MWField 类 

MWField 类 包含 了 MWStruet 类 的 字段 信息 的 引用 ，MWEField 类 是 不 可 创建 的 。 

六 MWCemplex 类 

使 用 MYWComplex 类 , 可 以 调用 MATLAB COM Builder 的 客户 程序 对 MATLAB 的 复数 
类 型 数值 进行 操作 .。 

记 MWSparse 类 

使 用 MWSparse 类 ,可 以 使 调用 MATLAB COM Builder 的 客户 程序 对 MAILAB 的 黎 焉 
底 阵 数值 进行 操作 
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记 MYWArg 类 


12.3.4 在 Visual C++ 中 调用 COM 组 件 的 步 又 


Visual C++ 调用 COM 组 件 的 步骤 如 下 : 
(t) 初始 化 COM 库 ; 
(2) 得 到 COM 对 银 的 CLSID; 
(3) 创建 一 个 COM 对象 的 实例 ， 
《4) 使 用 COM 对 象 ; 
(5) 退出 COM 库 . 
# 初 始 化 COM 上 诽 














HRESULT CoInitialized(LPVOID pvReserved)， Aindows 保留 参数 ， 必 须 设 为 MULL 


1 根据 返 同 的 HRESULT 值 来 判断 COM 库 的 初始 化 是 否 成 功 
HRESULT hr; 

hr=CoInitialize(NULIL); 

证 人 下 AILEDIhTy) 

{ 


Tetutmn false: 


1 得 到 COM 对 象 的 CLSJID 

CLSID CLSID_ MYyTInrerface: 

HRESULT hr: 

hr=CLSIDFrotmProgIDL"Myinterface,Myinterfacel1.0 ,让 CLSID_MyInterfaceji 

计 (PFAILED(hry) 

| 

MessageBoxf"CLSIDFromProgiP 调用 和 失败 ! 人 
Teturn false， 

} 

/创建 -个 COM 对 象 的 实例 

MYInterface *pPLUviyintertace 


hreCocCreateInstancetCLSID MyInterface， NULL， CLSCTX 各 LI， IUD_ JImyInterface， (void #Y 


&PIMYyinfacej， 1TID_ImyInterface 接口 ImyInterface 的 ID 
让 (FAILEDItr) 
{ 
MessageBox" 创 建 IMyInterface 接 可 失 贿 1 
Ietrn false; 


} 
# 使 用 创建 的 COM 对 象 
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退出 COM 库 


CeoUnminitiahzer ); 


12.4 在 Visual C++ 中 使 用 MATLAB COM Builder 生成 的 组 
件 实 例 


下 出 通过 一 个 实际 屋子 来 说 明 在 Visual C++ 中 调用 MATLAB COM Buildsr 生成 的 组 件 ， 
1， 生 或 组 件 


1) 在 MATLAB 环境 中 ， 编 辑 以 下 三 个 M 文件 ， 分 别 俞 名 为 : myrandplot.m、 
getplotcolorm 和 setplotcolorm。 
M 文件 myrandplotm 


fanction [outj=myrandpjotm) 


lobal randplotcolor' # 为 实现 COME 组 件 的 属性 ， 击 明 为 global 类 型 变量 
让 length(n)> 
nm=nt1l 
en 
DuUt=randtl, my; 
这 语 EITPYYTIandEIotcolor) 
randplotcoler=f 总 1 
end 
plotfout eolor, ranadploteolory; 
M 鼠 件 setplotcolorm 
function [ ]=setpletcolorfeolom) # 实 现 对 COM 组 件 属 性 的 访问 


global randPloteolor; 

fandPploteoler=eolor' 

M 廊 件 getplotcolor.m 

funetion fout]=getplotcolort ) 1 实现 灶 COM 组 件 属 性 的 访问 


glopal randplotcolorT: 


nut=randplotecolor， 


(2) 在 MATLAB 命令 行 通过 运行 comtool 命令 启动 MATLAB COM Builder 图 形 用 户 界 
面 , 然后 选择 File 菜单 下 的 New Project 子 菜单 ,创建 一 个 新 的 工程 , 工程 名 为 myrandplottest。 
在 弹出 的 对 话 框 中 完成 相应 的 选项 设置 ， 包 括 在 “compile code in ”选项 中 选择 C， 并 且 复 选 
上 “compiler options” 里 面 的 “Use Handle Graphics lihrary” 和 “了 Build debug version”。 这 
是 因为 前 而 的 三 个 M 文件 中 调用 了 MATLAB 绘图 指令 ， 则 需要 MATLAB 提供 的 CAC++ 
图 示 库 ， 这 时 在 编 详 器 选项 (Compiler DOptions) 中 必须 选中 “使 用 句 栖 图 形 库 (Use Handle 
Graphics Library》”。 如 图 12-7 所 示 。 
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重信 TI et C08 ailLder 上 cSL 


Building standalone executable... 
和 immcc -M -Silentsetup -dCJMATLAB6p5AN 
机 3.0 


- 汪 Project Files 
已 myrandhplottest 
思 汪 NM-fles 
CNMATLAB6p5workgetplotcolor 
旭 CHMATLAB6p5wworkumnyrandplot. 
过 CNMATLAB6p5WworKksetplotcolor 


(Referenced from "Co 
lIParsing fle "cyJmatlab6p5workmyrand 
(Referenced from: "Col 

| Parsing 仙 e "cyJmatlab6p5AworKsetplot 
| (Referenced from: "Col 
“CJMATLAB6p5NAworkinrn 
"CJMATLAB6p5hAworkwrrm 

| “"CJMATLAB6p5hworkwrm 

中 攻 lGenerating file "CJMATLAB6p5kworkirm 
nn 仙 e "C: JWMATLAB6paworkim| 


全 MEX- 介 les 








renea = -ea 一 


12-7 ”编译 生成 COM 组 件 


(3) 将 myrandplotm、getplotcolorm 和 setplotcolorm 共 三 个 M 文件 添加 到 工程 中 ， 并 
通过 Build 菜单 下 的 COM Object 子 菜单 编译 当前 工程 的 COM 组 件 。 待 编译 完成 、 生 成 DLL 
文件 后 ， 选 择 “Component” 菜单 下 的 “ Package Component” 子 菜单 ， 将 生成 一 个 目 解 太 
的 程序 ， 并 弹出 如 图 12-8 所 示 的 进度 对 话 框 。 在 当前 目录 的 distrib 子 目 录 下 ， 包 含 表 12-2 
所 示 的 几 个 文件 。 





图 12-8 COM 组 件 打 包 过 程 的 进度 对 话 框 


如 图 12-7 所 示 ， 在 编译 生成 组 件 的 过 程 中 ， 在 “Build Status” 面 板 生成 了 较 多 的 信息 。 
可 以 看 出 ，COM 生成 过 程 实际 上 是 通过 MATLAB 编译 器 mcc 生成 的 。 其 实 ， 采 用 mcc 和 
mbuild 命令 完全 可 以 实现 MATLAB COM Builder 的 全 部 功能 ， 只 不 过 MATLAB COM 
Builder 为 用 户 提供 了 一 组 更 加 友好 的 图 形 用户 界 面 ， 省 去 了 用 户 查阅 mcc 和 mbnuild 用 法 
中 繁杂 的 选项 ， 避 免 了 出 错 。 


2， 建 立 Visual C++ 工程 并 设置 必要 的 环境 


(1) 建立 一 个 Visual C++ MFC (exe) 类 型 的 工程 ， 工 程 名 为 myrandplottestvc， 选 择 生 
成 一 个 基于 对 话 框 的 应 用 程序 。 删 除 原 有 的 “确定 ”和 “取消 ”按钮 ， 并 在 对 话 框 中 添加 两 
个 BUTTON， 分 别 设置 其 ID 为 “ID_COMTEST” 和 “ID_EXIT”，CAPTION 属性 分 别 设 
置 为 “MATLAB COM 测试 ”和 “退出 COM”。 调 整 对 话 框 窗 体 布局 如 图 12-9 所 示 。 
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图 12-9 工程 myrandplottestvc 的 对 话 框 窗 体 


(2) 在 Visual C++ 中 选择 “Tools” 菜 单 ， 选 择 “OLE/COM Object Viewer”， 将 弹出 如 
图 12-10 所 示 的 对 话 框 。 选 中 新 建 的 MATLAB COM Builder 组 件 myrandplottest， 然 后 单 击 
右键 选择 View Type Information， 将 出 现 如 图 12-11 所 示 的 对 话 框 。 
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JImplemented [Categories 





{4DTFBAT8-6F88-46FF-ACB6-04- 
ITnprocServer32 [人 no name>] = 
InproceServer32 [Threadin 缚 odel、 
ProgII = myrandplottest.myrand 由 
TypeLib [no name>] = {18D6458( 
TypeLib [Yersion] = 1.0 
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图 12-10 OLE/COM Object Viewer 对 话 框 


(3) 在 ITypeLib Viewer 对 话 框 中 ， 选 择 “File” 菜 单 下 的 “Save As ...” 子 菜单 ， 然 后 
分 别 选择 *.h 和 *#.c 文件 ， 将 自动 生成 myradplotttest_1_0.h 和 myrandplottest_1_0.c 文件 ， 如 图 
12-12 所 示 。 可 见 ， 生 成 的 .c 文件 名 和 .h 文件 名 是 由 工程 名 和 版 本 号 两 部 分 组 成 。 

(4) 将 生成 的 myradplotttest_1_0.h 和 myrandplottest_1_0.c 文件 拷贝 到 当前 工程 目录 下 ， 
并 通过 “Project” 菜 单 的 “Add to Project” 子 菜单 ， 将 生成 的 myradplotttest_1_0.h 和 
myrandplottest_l_0.c 文件 添加 到 工程 中 。 
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图 12-11 ITypeLib Viewer 对 话 杠 





Dbin 
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图 12-12 ITypeLib Viewer 保存 程序 对 话 框 


IDL flle (by the OLIE-COM 志 


由 - 团 Enwms 区 2 Viewer) 
下 LStructs 
AN 
田园 wotaes 站 2 filenanmne:- myTrandplottest_l_ 
几 辐 Interfaces 


出 Dispinterfaces 

本 uuid(1BD64580-1AD2-43F2-B364 一 
二 人 627707E14EA0 ) . 

纪 LTypedefs VErsion(1.0). 

由 La Unions 


helpstring( "myrandplottest 1.0 Type 


AAA TILib : ~ TILib MWVCOmULI1 
避 |]1 .0 Type Library ;， {C47EA90F-56D1- 


保存 在 加 下 十 已 tistrin 可， 白 余 四 


1II 这 取消 


| 
| 


划 | 


(5) 设置 Visual C++ 使 用 MATLAB COM Builder 生成 的 COM 组 件 需 要 的 头 文件 路 径 。 
方法 是 通过 “Tools” 菜 单 的 “Options” 子 菜单 ， 选择“Directories” 选 项 卡 ， 在 “Include files” 


中 添加 以 下 路 径 
C:matlab6pS\extern\include 
C:matlab6pS\vextern\includevcpp 


在 “Library files” 中 添加 以 下 路 径 : 
C :\matlab6pS\externNlib\win32 
C:matlab6pSvextern\lib\win32\Microsoftmsvc6 


(6) 通过 “Project” 菜 单 的 “Setting” 子 菜单 ， 选 择 “C/C++” 选 项 卡 ， 在 “Category 
下 拉 列 表 框 中 选择 “Precompiled Headers”, 如 图 12-13 所 示 , 选 择 ”Automatic use of precompiled 


headers”， 并 设 为 “stdafx.h”。 


3， 添 加 代码 


(1) 在 myrandplottestvcDlg.cpp 添加 必要 的 头 文件 和 库 文 件 ， 即 添加 以 下 代码 : 


扑 nclude "mwcomutil.h” 
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抽 mport "cmatlab6pS\bin\win32\mwcomutil.dll" raw_interfaces_only 
#include "myrandplottest_1_0.h" 


(2) 在 myrandplottest_l_0.h 文件 里 添加 以 下 代码 ; 


#include "mwcomutil.h” 


(3) 为 CmyrandplottestvcDlg 添加 public 类 型 的 公共 变量 Imyrandplottest *m_pTest。 


wologoyMDdAw3IGmIGXZZI10d1D' WIN32"1D 
下 pDEBuG";D "WINDOWS"/D " AFXDLL";1D "MBCS" 
了/Fp"Debugimyrandplottestvc.pch'" YX 'stdafxch” 





图 12-13 ”Visual C++ 工程 C++ 选项 卡 预 编译 头 文件 设置 


(4) 在 对 话 框 窗 体 的 初始 化 函数 CMyrandplottestvcDlg::OnInitDialog( ) 中 添加 COM 初始 
化 代码 : 
/COM 初始 化 代码 
m_pTest=NULL; 


让 ((FAILED(CoInitialize(NULL)))) { 
printft("COM 初始 化 失败 !); 
exit(] ); 
} 
(5$) 通过 ClassWizard 为 对 话 框 窗 体 中 新 添加 的 两 个 按钮 添加 响应 代码 : 
void CMYyrandplottestvcDlg::OnComtest( ) 


{ 

/ 以 下 代码 为 添加 的 

HRESULT hr; 

Imyrandplottest *pTest=NULL; 
hr=CoCreateInstance(CLSID_myrandplottest，NULL，CLSCTX_ALL，IID_Imyrandplottest，(void *#*) 

信 pTestb); 
让 (FAILED(hr)){ 
AfxMessageBox(" 创 建 COM 出 错 !”); 


return， 
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导 口 lewariant in=100.0， 

SAFEA 和 ARRAY <pai 

doubie *peolor=NULL; 
pa=SafeArfayCreateVectorf(VT RS8, 0.3)， 
hr=SafeArray 上 accessPDatapa (Yaoid *t) 让 PCOloT]; 
下 (EAILEDIhry) 


tetuIn， 


pColor[0l=t.0; # 指 定 颜 色 ， 红 、 绿 、 蓝 共 3 个 分 量 
PCelor[H=0.0; 

PCaoler[2]=0.0: 

SafeATrayUnaccessDatatpay 

VWARIANT color， 

CoOlorvte=WwT RRRIVT 由 及 RAY 

colorparray=pa; 

PTest->setblotcolortcolor); 1/ 调用 COM 对 象 的 属性 
bTest->myTandplotD, NULL, (YARIANT》 inji 
m_bTest=PTIest 





void CMyrandplottestycDlg::OnExXIt 》 


{ 
8 以 下 代 碍 为 用 户 滞 加 的 
让 (mpTest !:=NULL) { 


Im_pTest->RREleaser ); 1 隘 基 
mrL_PTIest=NULL; 
】 
OnCancelf ]; # 退 出 应 用 程序 
CoUmninitializet 了 


] 


省 时 , 整个 工程 完成 , 可 以 编译 本 工程 。 运行 界面 如 图 12-14 所 示 , 单 击 ^MAILAB COM 
测试 ” 接 钮 运行 工程 ， 结 果 是 弹出 MATLAB 图 形 窗 口 igure No.1。 单 击 “ 退 出 COM” 按钮 
则 退出 本 工程 。 
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FED -iolx 


File 
| 上 口 芒 园 瑟 | 包 启 全 





图 12-14 ”工程 运行 界面 及 结果 
[2 和 小 结 


本 章 介 绍 了 MATLAB 支持 的 组 件 自动 化 ,尤其 是 通过 MATLAB COM Builder 生成 COM 
组 件 ， 并 通过 一 个 工程 实例 介绍 了 生成 的 COM 组 件 在 Visual C++ 环境 下 的 使 用 。 实 际 上 ， 
COM 生成 过 程 实际 上 是 通过 MATLAB 编译 器 mcc 生成 的 。 其 实 ， 采 用 mcc 和 mbuild 命令 
完全 可 以 实现 MATLAB COM Builder 的 全 部 功能 ， 只 不 过 MATLAB COM Builder 为 用 户 提 
供 了 一 组 更 加 友好 的 图 形 用 户 界面 。 应 用 组 件 技术 实现 MATLAB 与 其 他 高 级 语言 混合 编程 ， 
具有 适用 于 Visual C++、VB 、Delphi 、BC 等 各 种 支持 组 件 技术 的 高 级 语言 、 可 以 生成 不 依 
赖 MATLAB 环境 的 独立 程序 等 优点 ， 因 此 可 获得 最 快 的 运行 速度 ， 不 需 进行 代码 转换 ， 使 
得 编程 风格 一 致 ， 可 读 性 好 。 
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第 13 章 ”混合 编程 综合 应 用 实例 


13.1 引 言 





前 面 各 章 介 绍 了 MATLAB 与 其 他 高 级 语言 混合 编程 的 实例 。 为 综合 前 面 所 学 的 知识 ， 
本 章 运 用 MATLAB 混合 编程 ， 开 发 一 个 小 型 图 像 处 理 软件 。 图 像 处 理 系 统 中 只 包含 了 … 些 
比较 常见 且 相 对 较为 简单 的 功能 ， 日 的 在 于 演示 MATLAB 和 商 级 语言 混合 编程 的 方法 。 和 希 
望 感 兴趣 的 读者 ， 可 以 在 本 实例 的 基础 上 ， 继 续 完 善 其 功能 ， 使 它 真 正成 为 一 款 忧 秀 的 图 像 
处 理 软件 。 

本 网 像 处 理 软件 取 名 为 ImageProcessing。 框 架 程 序 使 用 Visual C++ 60 开发 。 为 了 充分 
体现 MAILAB 的 混合 编程 功能 ， 设 计 的 图 像 处 理 软件 中 每 一 个 图 像 处 理 功 能 分 别 给 出 了 采 
用 C++ 及 MATLAB 的 实现 ， 然 后 通过 接口 连接 到 总 的 框架 程序 中 。 


132 预备 知识 


13.2.1 数字 图 像 处 理 简 介 


数字 图 像 处 理 的 英文 名 称 是 “Digital Image Processing”， 指 利用 数字 计算 机 或 其 他 数字 
硬件 ， 对 图 像 信号 进行 某 些 运算 ， 以 提高 图 像 的 实用 性 。 视 觉 信息 是 人 类 从 大 上 自 然 中 获得 的 
信息 最 主要 的 手段 ， 在 人 类 所 获取 的 信息 中 ， 视 觉 信息 约 占 60 免 ， 而 图 像 正 是 人 类 获取 视觉 
信息 的 主要 途径 。 数 字 图 像 处 理 技术 的 处 理 精 度 比 较 高 ， 而 用 可 以 通过 改进 处 理 软 件 来 优化 
处 理 效 果 。 人 但 是 ， 数 字 图 像 处 理 的 数据 量 非 常 旋 大 ， 因 此 对 处 理 速 度 的 槛 求 也 较 高 。 
总 的 来 说 ， 数 字 图 像 处 理 通常 包 售 以 下 内 容 : 
> 点 运算 ， 针 对 图 像 的 像素 进行 操作 ， 可 以 有 效 地 改变 疼 像 的 直方 图 分 布 ， 有 助 于 提 
高 儿 像 的 分 辩 率 以 及 图 像 均衡 。 
几何 处 理 ， 包 括 几 像 的 人 标 变换 、 缩 放 、 旋 转 、 多 个 图 像 的 配 准 以 及 向 像 的 所 曲 轻 
正 等 ， 都 是 一 些 较 基 本 的 处 理 。 
> 图像 增强 ， 指 罕 出 图 像 中 的 重要 信息 ， 减 绊 或 去 除 不 需要 的 信息 。 党 用 的 有 直方 图 
增强 以 及 伪 彩 色 增 强 等 。 
图 像 复原 ， 指 去 除 干 扰 和 模糊 ， 从 而 恢复 原 图 像 ， 例 如 去 噪声 复原 处 圭 。 
> 图 像 形态 学 处 理 ;， 图 像 形态 学 是 数学 形态 学 的 延 伟 ， 可 以 实现 图 像 的 脱 胀 、 认 蚀 、 
绍 化 和 分 割 等 效果 。 
> 图 像 编 码 ， 指 利用 图 像 信号 的 统计 特性 及 人 眼 视觉 特性 对 图 像 进行 高 效 编码 ， 从 击 
达到 压缩 图 像 的 目的 。 
此 外 ， 还 有 图 像 重建 、 模 式 识 别 等 。 数 字 图 像 处 理 的 应 用 越 来 越 广泛 ， 在 工业 生产 、 遥 
感 技术 、 医 学 应 用 和 安全 等 领域 发 挥 着 重要 作用 ， 
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13.2.2 MATLAB 图像 处 理工 具 箱 简介 


从 MATLAB 5.3 版 本 开始 ，MATLAB 自 带 了 数字 图 像 处 理 的 工具 箱 〈Image Processing 
Toolbox )。 最 新 的 MATLAB 7.0 版 本 ， 图 像 处 理工 具 箱 版 本 为 42。 它 提供 了 一 套 完整 的 用 于 
图 像 处 理 和 分 析 的 函数 ， 总 共有 200 多 个 图 像 处 理 函 数 ， 功 能 强大 。 MATLAB 图 像 处 理工 具 
箱 的 函数 功能 归纳 在 表 43-1 中 。 另 外 ， 在 MathWorks 公司 网 站 上 提供 了 世界 上 MATLAB 爱 
好 者 的 冯 件 交换 区 (MATLAB file exchange)， 包 含 了 一 些 与 图 像 和 视频 处 理 相 关 的 函数 ， 本 
以 从 网 站 http:Awwwmathworks.com/matiabcentral/fileexchange/ 政 载 后 放 人 到 MATLAB 工作 目 
录 下 ， 如 局 使 用 工具 箱 函 数 一 样 使 用 。 岁 像 处理 工具 箱 与 MATLAB 的 数据 分 析 、 敌 法 天 此 
和 数据 可 视 化 环境 集成 在 -- 起 ， 可 以 帮助 专业 人 十 从 耗 时 的 图 像 处 理 算法 编程 中 解脱 出 来 ， 
而 把 大 部 分 时 间 用 于 所 题 本 身 的 分 析 处 理 和 算法 研究 上 。 央 此 ， 世 界 上 数 以 万 计 指 公司 和 大 
学 都 在 使 用 MATLAB 提供 的 图 像 处 理 于 具 箱 ， 以 解决 各 具 挑 战 性 的 图 像 处 理 问 题 。 








表 t3-+ MATLAB 图 懈 处理 工具 箱 主要 功能 






主要 功能 







于 要 巧 能 
















处 田 多 锥 好 侈 和 烤 据 ， 亿 括 清 
晰 化 ， 鼻 波 等 






图 像 关 未 多 旭 仿 号 处 埋 


此 其 动画 

从 图 像 文件 头 中 加 载 、 你 存 
或 恢复 图 和 伯 售 息 ， 支持 BMP 、| 
图 做 误 件 法 到 HDF 、JpPEG、PCX，、TIEFE、| 
PNG 和 XwD 等 众多 文件 烙 | 
， | 


































到 图 你 和 N 维 类 振 块 耕 
意 的 或 预先 定 叉 好 的 息 波 器 





任 















线性 泪 疲 
















设计 2D 妹 性 滤波 内 以 满足 给 
定 的 频 域 指标 
对 于 高 级 分 析 选 拌 相 同 的 余 
信 丢 达 方 泪 

对 天 和 像 进行 相 邻 区 域 处 理 















几何 视 作 赤 对 图 像 赂 下 全 的 所 何 蝇 作 | 线性 生 涉 泪 器 屋 计 


























提 职 图像 中 个 素 的 区 度 统计 | 
值 和 其 他 信息 
分 亲 图 像 以 获取 其 结构 信息 | 





像素 信和 统计 疼 像 转换 































图 像 分 林 





相 仓 区 域 和 块 的 处 畦 











































增强 独 像 以 使 局 部 特征 清 断 | 四 
图 像 增 强 区 域 处 到 对 任意 图像 芭 进 行 处 理 和 分 析 
可 见 或 减少 噪声 
计算 大 量 的 邮 煞 和 对 象 标记 
空间 变换 可 以 扭 南 和 矫正 留 像 一 进 制 狂人 和 像 柑 作 















操作 以 增强 图 像 总 特征 提取 
颜色 表 操 作 和 个 用 少量 静 色 
或 替代 颜色 表 近 似 圳 示 需 引 图 
片 ( Endex image ) 

把 图 德 从 -个 数据 类 型 转换 
到 另 “个 数据 类 型 















进行 图 像 配 玲 颜色 可 【Colormap ) 探 作 






















把 两 像 从 一 个 色彩 空间 转换 
岩 另 一 个 色彩 党 间 





色彩 空间 转换 图 像 燃 型 转换 















尽管 使 用 MATELAB 提供 的 图 像 处 理工 具 箱 进行 图 像 处 理 方面 的 算法 研究 或 工程 设计 纲 
程 效率 极 高 ， 但 是 它 不 能 脱离 MATLAB 环境 运行 ， 而 且 运 行 效率 相对 较 低 。 玉 此 ， 当 图 像 
处 理 算法 研究 和 MATLAB 仿真 实验 完成 后 ， 往 往 需要 将 算法 改 由 其 他 的 高 级 编程 语言 实现 。 
Visual C++ 被 认为 是 图 像 处 理应 用 领域 最 理想 的 编程 工具 软件 。 正 因 于 此 ， 本 章 的 综合 实例 
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以 Visual C++ 为 编程 平台 ， 期 望 通过 与 MATLAEB 的 混合 编程 实现 一 个 小 的 图 像 处 理 软件 。 
13.2.3 Visual C++ 的 图 像 处 理 位 图 文件 读 / 写 操作 


位 图 (BMP) 文件 格式 是 微软 公司 为 其 Windews 环境 设置 的 标准 图 像 格式 ， 而 且 它 还 包 
省 了 一 系列 支持 BMP 图 像 处 理 的 API 函数 。 随 着 Windows 操作 系统 在 世界 范 国 内 的 不 断 普 
及 ，BMP 文件 格式 已 经 成 为 PC 上 最 流行 的 图 像 文件 格式 之 一 。 本 章 的 综合 实例 也 以 BMP 
图 像 文件 为 例 。 因此， 本 节 先 简要 介绍 BMP 文件 格式 。 

Windews 中 定义 了 两 种 位 图 文件 类 型 ， 邵 一 般 位 图 文件 格式 和 与 设备 无 关 的 位 图 文件 格 
式 ， 其 中 设备 无 关 位 图 (CDIB) 文件 格式 具有 更 强 的 灵活 性 与 完整 的 图 像 数 据 。 要 进行 图 像 
处 理 ， 必 须 了 解 该 图 像 文 件 的 格式 。Windows 中 将 BMP 图 像 文 件 分 为 如 下 三 个 部 分 : 文件 
头 、 调 色 板 数据 以 及 图 像 数据 ， 


1， 文 件 冻 


误 件 头 的 长 度 为 固定 的 5Z 个 字 节 ， 分 为 两 个 数据 结构 ， 其 中 一 个 数据 结构 中 包 食 BMP 
交 件 的 类 型 、 大 小 和 打印 略 式 等 信息 ， 称 为 BITMAPFILEHEADER;， 另外 一 个 数据 结构 中 则 
包 售 BMP 文件 的 只 寸 定 凡 等 信息 ， 称 为 BITMAPINEFOHEADER、 
BITMAPFILEHEADER 数据 结构 的 定 习 为 : 
typedef structtagBITMAPEILEHEADER 
{ 




















WORD btTyPe: 
DODORD hfsize: 

了 辣 R 吕 bfReservedl: 
WORPD bfReserved2; 


DYWORD bfofBits， 
BITMAPEILEHEADER; 
这 个 结构 的 长 度 是 固定 的 ， 为 14 个 字 节 〔〈WORD 为 无 符号 16 位 二 进 制 整 数 ，DWORD 
为 无 符号 32 位 二 进 制 整数 )。 
BITMAPINEFOHEADER 数据 结构 的 定义 为 ， 
typedef stroct tagBITMAPINROHEADER 
{ 








DWORD biSize; 
LONG biWwidth， 
LONG DiHeight; 
DR hiPlanes; 
WODRD biBitCount: 


PWORD biCompression; 
DWORD big5izeJrnage， 
LONG 有 居 PelsPerMIetET， 
LONG biYPelsPetvfeter'; 
DWORD bicClrUsed， 
DWORD bieirImportant; 
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] BITMAPIHVFORE 和 ADER， 
它 的 结构 长 度 也 是 周 定 的 ， 为 40 个 字 节 《LONG 为 32 位 一 进 制 整 煞 )。 
2.， 调 色 板 数据 


这 里 是 对 那些 需要 调 色 极 的 位 国文 件 而 育 的 ， 真 彩色 赔 像 是 不 湖 要 谓 色 板 的 ， 
BITMAPINFEOHEADER 后 育 接 是 位 图 数据 。 调 色 板 实际 上 是 一 个 数组 ， 共 有 biClrUsed 个 元 
索 “如果 该 值 为 零 ， 则 有 2 的 biBitCount 次 方 个 元 束 )。 数 组 中 每 个 元 素 的 类 型 是 - -个 
RGBQUAD 结 徇 ， 占 4 个 字 节 ， 其 定义 如 下 : 


tpedef struct tagRGBQUAD 
BYTE TebBlue: 7 该 颜色 的 黄色 分 量 
BYTE rgbGreen: # 该 粘 色 的 绿色 分 量 
BYTE rgbRed; Fr 访 颜色 的 红色 分 量 
BYTE 从 hbResetrved:7 保 留 宁 
1 ROBQUAD; 
3 图像 数据 








对 了 于 几 到 调 色 板 的 位 图 ， 图 像 数据 就 是 该 像素 颜色 在 调 色 板 中 的 索引 值 ， 对 于 真 彩色 到 
人 ， 疼 像 数据 就 是 实际 的 R、G、B 值 。 下 面 就 2 色 、16 色 、256 色 和 真 彩色 位 园 分 别 介绍 。 
对 于 2 色 位 图 ,用 1 位 就 可 以 表示 该 像素 的 颜色 〈-- 般 0 表示 黑 ，1 表示 白 )， 所 以 一 个 字 他 
可 以 表示 8 个 像素 . 对 于 16 色 位 图 , 用 4 位 可 以 表示 一 个 像素 的 颜色 ， 所 以 一 个 字 节 可 以 喜 
示 2 个 像素 。 对 于 256 色 位 图 ， 一 个 字 节 刚好 可 以 表示 1 个 像素 。 








13.3 ”综合 实例 框架 


13.3.1 “框架 搭建 


Visual C++ 包含 编 气 程序 源 代 人 码 的 文本 编辑 器 、 殿 计 用 户 界 面 《 菜 单 、 对 话 枉 、 图 标 等 ) 
的 资源 编辑 器 、 建 立项 目 配 置 的 项 日 管理 器 、 愉 得 程序 错误 的 集成 调试 器 等 工具 ， 门 时 还 提 
供 了 动能 强大 的 应 用 程序 向 导 AppWizard 和 类 向 导 工 县 ClassWizard. AppWizard 用 于 生成 从 
种 不 同类 型 的 、 具 有 Windews 界面 风格 的 应 用 程序 的 基本 杠 架 ,在 生成 应 用 程序 框 江 后 ， 使 
用 ClassWizard 便 可 轻松 完成 创建 类 、 定 义 消 息 处 理 函 数 、 重 载 虚拟 彤 数 等 操作 。 

Visual C++ 的 文档 - 视 结 构 代 表 了 … -种 新 的 程序 设计 方式 ， 其 核心 是 多 档 与 视 岁 的 分 离 ， 
即 数据 存放 与 显示 《操作 ) 的 分 离 ， 文 档 - 视 结 梅 大 大 简化 了 多 数 应 几 程 序 的 设计 开发 过 程 ， 
由 于 文档 - 视 结 构 功 能 强大 , 因此 一 般 用 Visual C++ 进行 程序 设计 时 都 首先 使 AppWizard 牛 成 
基本 文档 - 视 结 枸 的 单 文 稍 或 多 文档 应 用 程序 框架 ， 然 后 在 其 中 添 吉 自己 需要 的 代码 ， 宕 成 频 
出 程序 的 特定 功能 。 

ImageProcessing 程序 的 框架 使 用 Visual C++ 的 Appwinzard 向 导 工 具 拱 建 , 具体 创 建 步 又 
如 下 : 

() 启动 Visual C++ 60， 从 “File” 菜 单 中 选择 “New” 子 菜单 ， 单 击 “Project” 和 标签 。 
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选择 创建 MFC AppWizard (exe) 类 型 工程 ， 如 图 13-1 所 示 。 工 程 名 设 定 为 Dip， 单 击 “″“OK” 
按钮 。 在 “MEFC AppWizard-Step 6 of 6” 对 话 框 中 将 CDipView 类 的 基 类 改 为 “CscrollView” 
以 支持 视图 滚动 ， 如 图 13-2 所 示 ， 其 余 各 选项 均 采 用 默认 值 。 按 “Finish” 按 钮 后 ， 提 示 
本 工程 创建 的 类 的 信息 。 单 击 “OK” 按 钮 ，MFC AppWizard 即 创造 了 一 个 多 文档 程序 的 







0 
Location: 


[TI 






呈 Extended Stored Proc Wizard 
全 |SAPI Extension Wizard 
加 Makefile 

MATLAB Project Wizard 












入 Create new werkspace 


dtip FnhtwWprksace 


New DotabaseY Wizard 六 Dependency of 

Utility Project | 司 
[可 Win32 Appllication 

下 Win32 Console Appliicatien 

中 Win32 DynamicLink Library 

中 Win32 Static Library 











图 13-1 Visual C++ MFC AppWizard 回 导 





fcoiviev Ran， 
ae Ps 





图 13-2 ”改变 视 CDipView 的 基 类 


(2) 为 应 用 程序 添加 SplashScreen， 如 图 13-3 所 示 。 一 般 的 商业 程序 都 有 启动 封面 ， 我 
们 也 为 ImageProcessing 程序 添加 一 个 封面 。 从 Visual C++ 的 “Project” 菜 单 选 择 “Add To 
Project” 子 菜单 ， 在 “Components and Controls” 对 话 框 中 ， 双 击 “Visual C++ Components 
文件 夹 ， 然 后 选择 “Splash Screen” 组 件 ， 单 击 “Insert” 按 钮 后 就 会 为 程序 添加 封面 ， 同 时 
在 项 目 中 会 增加 CsplashWnd 类 。 
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色 Visual C++ Conponents 


Frogress Dialog 时 Ti of day 

中 了 roperty Sheet 区 3aToolTip Support 

王 炮 vindovs multinedis libr 
册 Splitter Bar Windows sockets 

机 儿 Status bar 

的 System Info for About DIE 





13-3 ”添加 Splash Screen 


从 ResourceView 中 选择 IDB_SPLASH 位 图 ， 编 辑 以 设计 自己 的 封面 。 本 工程 设计 的 封 
面 如 图 13-4 所 示 。 





图 13-4 ”应 用 程序 启动 封面 


修改 CSplashWand::OnCreate 函数 ， 增 加 封面 存在 的 延 时 〈 改 为 23)， 如 下 所 示 : 
int CSplashWnd::OnCreate(LPCREATESTRUCT lpCreateStruct) 
{ 
让 (CWnd::OnCreate(lpCreateStruct) == -1) 
return -1; 
/ Center the window. 
CenterWindow( ); 


// Set atimer to destroy the Splash screen. 
SetTimer(1, 2000, NULL); 
return 0; 


} 


2 


13.3.2 ”模块 划分 


13.3.2.1 图 像 读 取 及 转换 DLL 


作为 一 个 图 像 处 理 程序 ， 必 须 能 够 读 取 多 种 格式 的 图 像 文 件 并 进行 图 像 处 理 。 在 
ImageProcessing 中 , 利用 动态 链接 库 ImageLoad.dll 实现 图 像 格 式 的 读 取 以 及 各 种 格式 之 间 的 
互相 转换 。 它 支持 6 种 图 像 格式 的 读 / 写 功 能 ， 分 别 为 BMP 格式 、GIF 格式 、JPG 格式 、PCX 
格式 、TGA 格式 和 TIFF 格式 。 利 用 Visual C++ 提供 的 Dependency Walker 工具 ， 可 以 查看 
ImageLoad.dll 的 导出 函数 列表 ， 如 图 13-5 所 示 。 可 见 ， 该 动态 链接 库 共 有 22 个 函数 ， 其 中 
18 个 函数 与 图 像 文件 的 读 / 写 操作 有 关 ， 这 些 函 数 分 为 三 类 : Load 函数 用 于 读 入 图 像 文件 
Save 函数 用 于 保存 图 像 文件 ，Get 函数 用 于 获取 图 像 文件 的 相关 信息 。 对 于 ImageLoad.dll 动 
态 链接 库 ， 查 看 其 定义 头 文件 ImageLoad.h 便 可 对 其 成 员 变 量 和 成 员 函 数 有 更 全 面 的 了 解 。 
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(Dx0017) 


(Dx0001) 22 (Dx0016) 


(Dx0000) 
(px0001) 
(0x0002 ) 
(0x0003) 
(Dx0004) 
(Dx0005) 
(Dx0006) 
(Dx0007) 
人 x0005) 
(x0009) 
(Dx000A) 
(Dx0005) 
(x000C) 
(0x000D) 
(DOx000P) 


_IDIWain8l2 
了 ileType 
GetBNPInfo 
GetGIFInfo 
GetJPGInfo 
GetLastPicLibPrror 
GetPFCXInfo 
GetTGATnfo 
GetTIFInfo 
LoadBNF 
LoadGIF 
LoadJPG 
LoadFCX 
LoadTGA 
LoadTIF 
Jiediancut 
FopuLarity 
SaveBWPF 
SaveGIF 
SaveJTG 
SaveFCX 
SaveTGA 
SaveTI7 


Por lalp，BressIl 


图 13-5 


头 文件 ImageLoad.h 的 详细 内 容 如 下 《〈 删 除了 部 分 注释 信息 ): 


/Imageload.h 


HH Generic HAN 


#define IMAGETYPE_NONE 0 
#define IMAGETYPE_BMP 1 
#define IMAGETYPE_GIF 2 
#define IMAGETYPE_PCX 3 
#define IMAGETYPE_TGA 4 
#define IMAGETYPE_JPG 5 
#define IMAGETYPE_TIF 6 


0Dx00015I090 
0x00015DC0 
0x000010Z0 
0x00001640 
0Dx00013AS90 
0x00015DB0 
0x000168C0 
0x00017FF0 
0x00018AC0 
0x00001000 
0x00001280 
0x000137C0 
Dx00016420 
0x00017750 
0x00018270 
0x00015PC0 
0x00016FEAD 
0Dx000011C0 
0Dx00001740 
0x000135SZ0 
0Dx000169B0 
0x00018050 
0Dx00018C30 





动态 链接 库 的 函数 列表 
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fjefine THMAGETYPE_FIRSTTYPE IMAGETYPE_ BMP 
iletftne IMAGETYPPRE_ LASTTYPE IMAGETYPE_TIF 


太 fdef _eplusplus 
eKktern 人 
#end 计 


int__deelspec [dljexport) GetLastEicLibError( void 小 


1 TYPe filename 
inmt declspec (dllexpeort) FileTyPet cofst ghar 站 


HA 和 诫 下 下 后 

HGLOBAL _declspec fdllexport LoadBIMPL( comnst char 亲 入 

BODOL _declspec (dexporb GetBMPInfof const char #， int 站 int， iT 本， it 站 mt s 有 
BOOL _declspec flexport) SaveBMPK const char *， HOTLOOBAI_ 


AAA 和 四 AAA 和 限 

HGLOBAL declspec (dlexpaort LoadGJF( const char * 上 

BOOL declspec (dllexpert) GetGHIEInfof conmst char 站 it int 站 int 党 int 才 int 本 
BOODL _declspec (dllexporty SaveGTRIU const Char *， HOLELOSBAT 


AAA 本 

RHGLOBAL decispec (dilexpoerb LoadPCXLUCconst char 

BODOL declspec (dllexport GetPCXInfcteonst char #， int #、 int yy int *, int int 六 
BODGOL _qdeclspec (dexportl SayePCX{ ceonst ehar *, GLOBAL 


1 

HGLOBAL _declspec tdllexpoftl LoadTGA( const char 枚 及 

BOOEL decispec (dllexport GetTG 太 Infof congt chatr 半 ， int int 过 InL int 本 iDt 人 
BOOL deelspec (dllexporb SaveTGA( const char *, HGLOHAL 


AAA 了 证 六 

HGLOBAL declspec (dlexport) LoadTIEC const char * 小 

BOQOL declspec {dllexporb GetTIFIREOK const chatr *, int + in 1 YE 二 int 二 入 
BOOL derfspec (dilexporb SaveTTIF( const char < HGLOBAL 


WA 天 和 II 

HGLOBAL _declspec (dllexport LoadJPGC const char * 六 

BOGL _declspec fdlexpert) GetPGInfof const char *, int # int 上 int int int 六 
BOOL _declspec (dlexport SaveJPG( const char + ,HGLOBAL， int 7: 





LETTE 将 
WODRD declspec (dllexporb MiedianCut[ WORD Histt], BYTIE Colvap[jt3], int 六 


到 DRD ._qeclspec (qdHexport) Popularity( Dnsighed char *pBits, int nBits, int nyidth, int nHeight BYTE 
CotorMap 上 [3 


划 fqef _eplusplus 


} 
拉 ndif 





另外 ， 为 处 理 出 错 信息 ， 还 定义 了 一 个 ImageErrosh 文件 来 声明 读 / 写 图 像 文件 时 的 错误 
代码 ， 其 内 容 如 下 : 


/mnagePrrorsh 


州 fndef ERRORS 有 
fiefine ERRORS 开 


#lefine IMAGELIB_SUCCESS DO 


几 File errars 

fiefine IMAGELIB FILE OPEN_ERROR -] 
#define TMAGELIB_FILE_CREAIION_ERROR -2 
#define IMAGELIB_PFILE_ WRITE_ ERROR -3 
#efine IMAGELIB_FILE _ READ_ERROR - 才 


六 ernory erTOS 
define TIMADELIB_MEMORY ALLOCATIION_ERRODR -30 
fdefine TMAOGELIB_MEMOCORY_LOCK_ERROR -51 


1 点 regUIDEPEt erTOtS 
#efine TIWMAGELIB_ NODIB -100 


f#define IMAGELIB_UNSUPPORTED_FILETYPE -200 

#define TMAGELIB_HDIB_NULL -201 

kiefine IMAGELIB_LOGICAL_PALETTE_CREATION_ERROR -202 
昌 efine IMAGELIB_NO_PALETTE_FOR_HIGH_COLOR -203 
fdefine IMAGELIB_STRETCHDIBITS_ ERROR -204 

jdefine BAGELIB_PALETTE_QUANTIZE_ERROR -205 

#define IMAGELJIB_ATTEMPT_CHANGE_TO_SAME 206 

#define IMAGELIB_ROTATION_VALUE_ERROR -207 

#define IMAGELIB_ RDTATE_ERROR -208 
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##end 让 
13.3.2.2 CDibObject 类 封装 


由 于 MEFC 没有 封装 处 理 与 DIB 位 图 相关 的 妈 indows API 函数 的 类 ， 所 以 基于 面向 对 象 
的 思想 以 及 代码 的 重用 性 ， 有 必要 设计 一 个 类 来 完成 如 下 功能 ， 

关 ” 读 取 某 种 类 型 的 图 像 文件 ; 

> 获取 了 图 像 的 相关 信息 ; 

六 显示 图 像 ， 

> 以 相同 或 不 同类 型 格式 的 图 像 文 件 保存 该 图 像 

类 的 名 字 为 CDibObject， 该 类 首先 对 IJmageload.dll 中 的 通 数 进行 封装 ， 然 后 添加 -- 些 代 
码 实现 图 像 的 显示 功能 。 类 CDibObiject 的 县 体 实现 代码 如 下 ， 其 中 包含 了 对 氏 码 注释 。 由 了 于 
DibObject.cpp 文件 较 长 ， 在 这 里 仅 列 举 了 几 个 关键 函数 。 


ADihf 下 jecth 





折 frdef _DibObjiect 再 
fdefine DibtWbject 


着 HClude "IageEITOTS.H” 
砷 iteluae ImageLoad 


提 aefine POPUL 上 ARITY_PALETTE DO 

审 efine MEDIAN_CUT PMALETTE | 

#qdsfine FIXED_PALETTE > 

#define GETRGBSSSf ab ec dd WORD *wpata = [WODRD 的 di ae= unsigned char) (tywIDatal 区 
Dx7c00 1 >> 了 和 b = funsigned cham fr (swDatt 友 Dr03e0 ) 227C=tDnsigned char fr 性 WPData 人 让 们 xD001f) 
<<371 1】 . 

#define GETRGBS65( ab c, dfT WORD 9wData = WORD *) dia= (unsigned char) ft (*wData) 家 
0Oxfg00 ) >> 名 b = (nsigned char ff fswDatal 必 DOx0780 ] >> 3 和 CC= (unsigned chary(( (#WWData) 上 让 DxOojf 》 
< 人 

Hdefine GETRGEB888SC ab ed TWODORD *dwData = (DYWODRED *) da= (unsigned chari (ydwDatal 
>> 16 入 bb = (funsigned char ({f (ktdwDatal 交 0x0O000ffD ) >> 是 e 一 (unsigned chanm (trdwDatai 尼 
0XDODODOO 人 7 了 

gdefiine PUTRGHBS5S0a, bc di WORD +rwDpata= [WORD 4diywData=( fwORDIa 安 Dxnuf8 ) 
< TWODORD)b 放 DOxo0tg <<20WORDIC>> 3 

和 efine PUTRGBS565S(a bc df WORD *wData = (WORD 和 dx*wDpata=(CCfWORD)a0xoofa ) 
<<8)TOUCWOGOREDIb 呈 0Oxoofe )<<3)HOOWORPye>>3)7] 

#define PUTRGB888( a be dJTDWODRD 权 wData = (PWORD 和 di sdwData=((DWORD)a<c 161 
IDWODRDb <<8s7yHDWORDIeci |】 

define RGBIrCE,D7 ICWORDIICD) 友 ~T<<TIKICE) 度 ~7JS<<2JITTP3) 


class fDibObject: Public 事 Object 


= 了 人 辣 





{ 
DECLARE_DYNCREATEICDibGpjeco 
Public: 

1 无 参 构 造 函 教 
CDibObjecet 
/拷贝 煌 造 函数 
CDibObjecttCDibOhbject* PDibObjeeb， 
/有 参 构 造 国 数 
CDibObiectf const ehar ,CDC +PDC = NULL, intnX =-] ,jintny =-] 
4 析 构 函数 
-CDibObject( 
/等 号 操作 符 重 载 
void Operator= (Const CDibObjeect 杰 DibODbject); 
1# 读 入 图 像 
BOOL Loadft const char*, CDC #pDC = MULL in = -1 intny = -1 
# 得 到 最 近 发 生 的 错误 友 
int GetLastError void ); 
# 保 存 图 像 
BOOL Savel const char *+, intnIype 一 -] 
# 得 到 宽度 《像素 单位 
int Getyyidtt void 》 
1 得 到 高 度 《〈 像 素 单位 ， 
int GetHeightf void ); 
1 得 到 每 像素 颜色 位 数 
int GetMumBitsf void 入 
/得 到 颜色 数 
int GetNumColorst void 小 
# 得 到 调 色 板 
BOOL GetPaletteDatar 及 人 了 二 U 太 下 二 让 
RGBQUAD *GerPaletteDatal void 沁 
8 得 到 文件 类 型 
int GetImageTYyPel Const char * 》 
int GetImageTYypet void 了 
1 得 到 图 像 信 息 
BOOL GetIymageInfof const char +, int pnWidth = NULL， 

int *pmHeight = NULL, int *pnplanes = NULL， 

int *PpttBitsPerPixel = NULILL, int #PpnhNurmCotors = NULL 
1 综 制 图 像 
BOOL Drawf CDC *, intx= -linty=-L DJ 
# 设 置 调 色 板 
BCL SetPajlettef 和 DC 六 
/设置 调 色 板 类 型 
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void SetPaletteCreationIypet int ) 

4 得 到 调 色 板 类 型 

int 人 etPaetteCTealionTyPef Yoid 

# 图 像 号 理 被 载 入 

BOOL IsLoadedl void 7 

/ 直 " 展 名 索引 

int EXtensionJndqexft Const char 本 人 

V 改 变 图 像 格式 

BOOL ChangeForrmatl int ); 

1 得 到 调 色 板 字 节 数 

int GetPaletteBytes( void ) 

/得 到 位 图 句柄 

HGELDBAL GetDibt vcid 

4 得 到 调 色 板 指针 

CPalette YCietPaiestef vO 过 让 

/对 输入 的 坐标 进行 调整 ， 看 是 否 超 出 贸 像 大 小 
void NormaiizeCoorndinates( int *，int *，int +，int +*，BOOL *pCompleteImasge = NULL，BOOL 


#hb]LessThanHaf = NULL ); 


/得 到 DlB 位 多 内 存 指针 
vbid YGetDISBRPointerf 也 ft snWidthBytes = NULL， int HHNewHBirs = 口 jmt +xnIewWwidtmBytes = NULL， 


int nMNewWwirth = -1 ]; 
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/得 到 逻辑 调 色 松 

LOGFALETTE GetLogPallf void 

fi 创建 辑 调 色 板 

LOGPALETTE *CreateLegPalerte[ RGBQUAD *Paletie int NUmColors 由 
/得 到 最 近 颜 色 索引 

int GetNearestfndexf unsigned chat, tnsigned char, unsigned char, 及 GBS 人 QUADD ,int 
# 设 置 质量 

void SerQualityr int nQual ){ mm_nanuality = nual; } 

# 设 置 宽度 

void SetWidth int nWidth 1 m_nwWidth = mWidth; } 

/设置 高 度 

void SetHeightt int nHeight ){ mm_nHeight = DHeight; } 

ft 设置 平面 数 

void SetPlanesl int nPlanes ){ m_nPianes = mnPlares: } 

1 设置 平面 数 

vbpid SetScreenPlanesft int nScreenPlanes )[ m_nSereenPtanes = mScIEEnPI9DeS， 1 
# 设 置 颜 色 位 数 

void SetBitsf inf hnBits ){ m_nBits = mnBits: ) 

4 设置 颜色 体 数 

void SetgSereenBitsf int nScreenBits 1 Im_nScreenBits = nSereenBits: ] 

4 设置 颜色 数 





void SetCelorsf int nColers 1 m_nCotors = DCotors; } 
1 设置 图 像 类 型 
void SetlimageTypel int nimageTYype ){ m_nImageType = niImageType; } 
/设置 最 后 错误 类 型 
void SetLastErrorf int nLastError ){ 中 _nLastETror = DLaSTETTOT; } 
# 设 置 最 后 错误 类 型 
void SetPaletteBYytesf int nPalefeBytes ]{ tm_nPaletteBytes 一 nPatetteBytes，} 
1 设置 m_nX 
void SetXr int nX )f mm_n 有 = 0DX; ] 
FP 设 置 m_ny 
void SetYr intnTY nnY = 一 E 
1 划 取 m_nPlansg 值 
int GetPlanest )f Teturn m_nPlanes; } 
1 菊 取 m_nScreenPlans 值 
jnt GetScreenPianesf J{f returm m_mScreenPlanes: 】 
1 获取 上 mnSereenBits 值 
int GetScreenBitsf ){ return tm_nScreenBits; } 
# 著 取 mmnQuaiity 值 
int GetQualityt ){ retmum m_nQuality: } 
1 装 取 m_nColeors 值 
int GetColorsf )f returmm InColorsi ] 
1 苑 取 mnX 值 
int GetWr )f retura 了 _n 其 : } 
/获取 im_nY 全 
int GetYt Jretarn m_nY: } 
1 处 理 调 色 板 
void ProcessPalettet Yoid 》 
ji 字 贡 宽度 
int WidthBytest int int 
# 设 置 位 图 
void SetDib( HGLOBAL hDib 并 如 hpib = hDib: 】 
/设置 逻辑 调 色 板 
vbid SetLogPalf LOGPALETIE *pLogEal Jim_PLogPal = PLogPal: } 
1 清除 图 像 
vO 刘 Killtrmaget void ) 
# 盾 理 图 像 头 
void PtocessymageHeadert YOid 小 
static char *sSzZExtensions[7]; 1 扩展 名 
jnt m_nLastError; ， /有 量 近 错 误 
int m_nSereenPlaries, [mn_DnScreenBits， Im_nPalette 也 ytes; 
/诊断 调试 函数 
机 fdef _DEBUG 
”了 宁 1， 











virtual void Dump(t DumpContext 下 GC] COnSt; 
Virtual void ASSsertYalldt ] Const 
##enq 这 
Protected: 
/初始 化 参数 
void initVars( BODL bFlag = FAILSE ) 
1 从 位 图 创建 调 色 概 
Yo 过 CreatePaletteFromDIBI RGBQAUAD #，int 六 
LOGPALETTE *CreatePaletteFromBitmapf int unsigned car #， imt， int int 六 
RGBOQUAD *MakePepnularityPaletef int, unsigned char *. int, jnt, int 小 
RGBOQUAD *MakeMeqianCutPaiettet int unsigned char *, int int int 
RGBQUNAD *MakeFixedPalettel int ); 
int m_nwwidth, m_nHeight, m_nPlanes, m_nBits, m_nColors, mmTmageType: 
jint mL_ Hi 其, Im， 
int m_noanality: 
int mL_nPaletteCreationJTYPe: 
CPalette m_ Palette; 
HOLOBAL m_hDib; 
Puablic: 
Char 贡 GetImageMNarmet 小 
void ProcImgHeadftvoid); 
char *rm_pszPFilenarme: 
LOGPALETTE *m_pLogPal: 
上 
##endiT 


ATDibDbject.cpp 


##inecinde "stdafx” 
3mneiude "DibDbject.h” 


IMPLEMENT_DYNCREATE(CDibObject CObject) 
char *CDibObject:szExtensions[] ={ "BMP", GIF" "ECX TGA"， JPG"， .TIE ”上 


YDiagnostics and dulap mernber fanctions, Overriddeal 
#ifdef DEBUG 
VOi CDibObject:Dump(CDumpContext 监 QC) Cont 
Acall base class fnebon frst 
CDbject:Daamptdecy 
pnew do the stuff for par specific class 


= 人 





de<< File Narme: "<<m_pszFilenarme<<"w， 
] 
#end 让 
#ifdef PEBUG 
void CDibObject: 各 ssertwaiidf ) Const 
{ 

Acall inherited 各 SSseTtValid first 

记名 bject:: 点 SSeTtWalidr ); 

Aceheck CDibObject raembers.… 

名 SSERT(r_PszFilenarme != NULL); Amust exist 

上 SSERTT hhDib 1= NULLY: Amust exist 
} 
#nQif 
AAA 
HACDiboObject 类 的 构造 函数 
由 
4 基本 功能 : 这 是 - -个 无 参数 的 构造 国 数 。 它 简单 地 创建 一 个 CDibObject 对 象 并 
1 初始 化 其 内 部 变量 
并 -re 
# 参 数 说 明 ;， 无 
-一 
# 返 回 值 : 无 
AH 
CDibObjeet3CDibObjeet( ) 
{ 

fi 调用 辅助 谓 数 初始 化 其 内 部 变 最 

了 ni 让 Varsr 7》 
】 
AAA 
ACDibeDbject 类 的 构造 国 效 


Z 基 本 功能 : 用 一 个 CDibObject 对 象 通过 复制 操作 来 创建 一 个 CDibObject 对 象 
六 ------------------------------------------------------------- 
/参数 说 明 ;，CDibOhbjecet spDipObject 
f----------- 人 人 
1 返回 值 : 无 
RAR 
CDibDbject:CDibDbjscttCDibObject spDibDbject) 
{ 

InhitwVarsif ] 

玉 iIImaget 7) 

mm_OWid 中 = PDihOhject->m nn 如 刘 耻 ; 
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m_ntHeight = PPDibObject->m_nHeighti 

mm_mPlanes = 昌 了 DibCObpjcct->rm_nPlanes; 

Im_nBits = PDibObject->m_nBits; 

molors =PDibObject->tm_nColors; 
mnImagsIype=pDib(Wbjeet->rm_nImageIyPe: 
mm_ 0 和 = PDibOhbject->Tm_ nm 区 ; 

m_nY = pPDibDbject>m_nY; 

mL_nLastErrer = pDibObjeect->rr_nLastErrori 
mnScreenPElanes = PDibObject->m_nScreenPlanesi 
InScreenBits 一 习 DDibObjecet>m_nscreenBits; 
m_nPaletteBytes = PPDibObject->rm_nPalette 且 Ytes; 
TaQuality = PPDiboObjecet->m_nouality， 
In_nPaletteCreatio0Jype = PDibObiEct->tm mnPalettetTeatiOnTYyPe: 


int nNutmColors = Inneoclors: 


itt hnWidthBytes = WidthBytesf rnBits, rm_nWwWid 由 了 


这 PDibwbjectc>m_hDib := NULEL ) 
{ 
也 儿 侣 RD dwgSize = :人 lpbalSizedf PDibObject->na_hDip 
char +pData = 【char *》 :2CGiobalLockt PDibObjectc>m_hDib ); 
这 pData 1= NULL ) 
{ 
HGLOBAL hlobal = :OopbalAlloc( GMEM_ MOVEABLE 1 GMEM_ZEROINTITL， 
GdwSize )， 
i 丸 hoGjobal = NULEL ){ 


char *pDestData = (char + :CobalLoekf hGlobal ) 
if pnDestData != NULL ) 
{ 
iaemcPyt PDEstData ppDara diwSize ) 
23GlobaiUnlock( heilobal ); 
m_hDib = hGlobal; 
} 
else :: 人 lebalFreet hCGlobal ); 


} 
:2GlobalUniockt piDibtobject->n_hDib ); 


] 
} 
1 
AmCDibObject 类 的 构造 天 数 
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/基本 功能 ;构造 一 个 CDibObjeet 对 象 。 唯 一 要 求 的 一 个 参数 是 文件 名 。 如果 





玫 给 出 了 CDC 设备 上 下 文 参数 ， 图 像 加 载 后 会 立即 在 谅 设备 上 下 文中 显示 
形 出 米 。 如 果 给 出 了 nX 战 mrY 参数 ， 图 像 会 显示 在 该 坐标 指定 的 位 置 ， 吞 
F 则 ， 图 像 总 是 显示 在 坐标 为 《0,0) 的 位 置 。 

1 参数 说 明 : const char *pszFijename 

形 CDC *pDC， 默 认为 NULL 

并 int nX， 默 认为 -] 

下 intaY， 默 认为 -1 


AAA 
CDibDbjiectCDibOPjeet const char *pszFilenarne， 
CDC *pDC, intnX,intny ) 

{ 

JnitVars( 六 

Loadf pszFilenarme，PDCD 共 TY )) 
} 
TAR 
MeDiboObject 类 的 析 构 函数 


1/ 基本 功能 : 析 构 CDibObjeet 对 象 ， 删 除 该 对 象 中 的 图 像 及 相应 的 变量 
用 ------------------ 
/参数 说 明 ; 无 
HA 
CDipOpject:-CDipOpiect( ) 
{ 

这 m_hbib 7 :GlobalFreet m_DDib 》 

这 m_pszFilename != NULL ) delete [] 上 pszFilename; 

过 m_IELogPal != NULEL ) delete [] mpPLogPal; 














】 

1 

HBOOL Leadf } 

1 基本 动能 ， 本 函数 把 一 个 图 像 文件 载 入 CDibobject 类 。 必 需 的 一 个 参数 是 文件 
背 和 名。 如果 给 出 了 CDC 设备 上 下 文 参数 ， 图 像 一 加载 就 被 绘制 。 如 果 给 
及 出 了 呈 或 onY 参数 ， 图 像 将 显示 在 该 坐标 指定 的 位 置 。 和 否则， 图像 总 是 
并 显示 在 华 标 为 《0.0) 的 位 置 。 
1 

/参数 说 明 ，const char *pszFilename 

下 CDC ?PPC， 黑 认为 NULL 

下 int nX， 默 认为 -1 
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下 int nY， 默 认为 -1 
1 加 值 : BOOL: 成 功 返 回 TRUE， 和 失败 返回 FALSE 
HA 
BOOL CDibObject:Load( const char *pSzFMilenanae， 
CDC *piD intnXintnY ) 

{ 

# 获 取 图 像 文 件 类 型 

ITLDImageTtfype = FileTypef pszFilename ]; 

这 mm_nIrmageType == 避 ) 


{ 
Ti_RLastEtrrot = IMAGELIR_UNSUPPORIED_FILETYPE; 
TetmurnT EAILSE ) 

] 

1 删除 已 存在 的 图 像 





及 illimagel 
Imm_pszFitename = mhew char [Strlen(pPszFilename)+]1]; 
证 mm pszFilename != NULL ) strcepy( im PszFilenarmne, PSzFilename ) 
4 根据 文件 类 型 调用 ImageLoad.dli 动态 链接 库 中 的 相应 函数 打开 图 像 文件 
Switch m_njimageType ) 
{ 
case IMAGETYPE 了 MP: 
m_hDit = :TOadBMP( PszPilename 六 
这 m_hDib == NULL 儿 
ttL_nLastError = GetLastPicLibErrorl j 
Teturnf FALSE ); 
} 
break; 
Case IMAGETYPE GIFE: 
m_hDPib = :LoadOGIEF( PszFilenarne 六 
if rm_hDib == NULL 针 
DLLDLastError = :GetLastPicLibFrrorl 》 
IetuTnf FALSE ); 
} 
breal 
case IMAGETYPE JP 
m_hDib = ::LoadHPGK PszFilenarmet 》 
这 m_Bbpip ==NULL ){ 
Im nLastEror=::GetLastPacLibErrerf 六 
returnf 下 和 LSEP 入 
| 
break; 
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case TDMACGETYPRE_PCX: 
Im_hDib = :LoadPCXL pszFitename ]; 
it m_hDpib =- NULL j{ 
im_nLastBrror = ::OetLastPicEibError )， 
Teturnf 开 生 匡 .SS 玉 
} 
break; 
case TM 和 GETYPE 了 OAA: 
im_hBDib = ::LoadTGAC pszFilenatme }， 
这 m_hDib == NULL ]f{ 
rm_nLastErroer = :GetLastPicLibErrorf )) 
fetutnf 下 上 LSE ]; 
break， 
case IMAGETYPE_TIF: 
rhDib = ::LoadTIR( PszFilename 
这 im_nDib ==NULL )f 
垃 _nLastError 二 :WetLastPicLibErrorl 久 
Teturnf FALSE 小 
] 
breaki 
# 处 理 图 像 信息 头 
ProcessJmageHeader( 》 
j 处 理 调 色 板 
ProcessPsletter ); 
/1 若 传 和 了 设备 上 下 文 指针 ， 就 在 指定 的 设备 上 王 文 中 绘制 图 像 
这 PPDC = NULL ) DrawfPEC, nnYT 
retumt TRUE 》 
] 
AAA 和 请 卫 和 有 
nmBDOL Savef )} 
jjf--------------------ornrrr---- 一 
/基本 功能 :本 函数 保存 驻 留 于 CDibOhbject 对 象 中 的 当前 图 像 〈 图像 类 型 定义 见 
六 GetImageTypel ) 国 数 


几 参 数 说 明 ，con 内 chi spszFilename 
形 int nType， 默 认为 -1 


# 返 回 值 ， BOOL: 成 功 返 回 TRUE， 拓 败 返回 FALSE 


AN 和 衣 庆 和 
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BOOT 人 DibWwbject:oavyef eonst Char pszFilenanme, int 0TIybe ) 
{ 
# 若 没有 指定 文件 类 型 ， 风 根据 文件 名 判断 其 文件 类 型 
这 TIYPE == -1 )nTYype = ExtensionIndexf pszFilenarne 7) 
IE TITYype < IMAGETYPE_FIRSTTYPE InIype > IMAGETYPE_ LASTTYPE ) Teturml FALSE ); 
mm_nImageType = nmnIype: 
delete [] tr_PszEFilenamec; 
EL_PSzEFilenarne = new chat [sttierfpszFilenmarme)t11: 
这 [ m_pszFilenarme != NULL ) strepyt In_bszFilename, PszFilenarme 六 
/根据 广 件 类 型 调用 ImageLoad.dl 动态 链接 库 中 的 相应 函 堵 保存 图 像 
Switcht 如 nImageTyPpe ) 
{ 
case IMAGETYPE_BME: 
returnl ::SaveBBMP( PszFijename, mL_hDib ) 六 
break， 
case IMACETYPE_GIF: 
TetUrnT :: 写 和 YeCEE( PSzFilename, RULhDib ) 入 
break 
case IMAGETITYPE JPG: 
Teturnf :SavejJPGK pszFilename mm hDib, mnQuality ) 
brealk 
case IMAGETYPE_PC 人 : 
Teturnt ;SavePCX( PszFilename, mm hDib ) 
breaki; 
Case TIMAGETYPE TGAA: 
returnt ::SaveTGATDpszFilenanme, mm_hEPib ) ) 
break' 
case IJVMACGETYPE TIF: 
Teturnt :SayveTIRY pszFilename, rrL_hDib 
break， 


Tetarmf TRUE )， 
] 
AN 
PrBDOL Drawf CDC tpDC inkt Hintny ) 








/基本 切 能 ， 本 函数 是 在 设备 扒 述 表 上 综 制 玖 像 。 如 果 区 和 下 坐标 没有 给 出 ， 图 像 会 
8 被 画 在 (0.0) 坐 标 或 上 次 伟 入 的 有 效 坐 标 处 

1/ 驮 数 说 时 :CDC *pDC 

六 int nmX， 默 认为 -1 

殊 int nY， 默 认为 -| 


信人 个 。 


几 


1 返 加 值 : BOOL: 成 功 返 回 TRUER， 朱 败 忻 回 FALSE 
AAA 请 和 谨 向 
BOOL CDibObjsctDrawCCPDEC *pDE int ftX intnY ) 
{ 
这 区 二 -17mDX 三 了 其; 
ff nY != -1 ImY = DY 
Im_nLastError = THMAGELIB_HDIB_NULL: 
# 设 有 打开 图 像 
这 和 mhDib 一 NULL ) returmt FATLSE ); 
cbar *PITernbp， 
/锁定 攻 像 对 象 句柄 
PTemp = fchar *) :IDlobalLeockl mhDib 7) 
rm_nLastError = IMAGELIB_MEMDRY_LOCE_ERROR， 
这 PIemb == NULL ) retummt NULL 
/ 蜀 像 信息 头 
BITMAPINFOHEEADER *pBLH 
bBIH = (BITMAPINROHEADER 9 的 皮 PIemp[sizeof(BITMAPFILEHERADERJ]: 
int DRet = ::StretchDIBitsf PDC->im DC mnX mnyY mnwWid 中 m_nHEeight 0, 0， 
m_nWridth  m_nHeight, (const void FAR *) 此 PTetmp[sizeofBITMAPEILEHEADERY》 
+sizeof(BITMAPINFOHEADER)+m_nPaletteBytes]， (BITMAPINFPO “PEBIH DIHB_RGB_COLORS， 
SRCCOPY 
CohbalUnlockr _hbpib 7》; 
HL_nLastError = IMAGELIB_STRETCHDIBITS._ .ERROR; 
这 nPRet != mm_nHeight ) Teturnf FAILSE ]; 
m_nLastError = THMAGOGELIB_SUCCESS; 
Teturnf 工 RUER 》 
} 


13.3.3 ”应 用 程序 功能 添加 


有 了 类 CdibObject 就 可 以 在 13.2 节 创 建 的 应 用 程序 框架 基础 上 添加 图 像 的 显示 、 处 理 等 
基本 功能 。 

将 Dibobjecth 和 DibObject.cpp 两 个 文件 复制 到 当前 工程 目录 中 。 选 择 Visual C++ 集成 
开发 环境 的 “Projeet” 菜 单 的 “Add to project” 子 菜单 ， 选 择 添加 “Files…” 选 项 ， 系 统 打 开 
如 图 13-6 所 示 的 “Insert Files into Project” 对 话 框 。 选 择 文件 DibObjecth 和 DibObjectcpP， 
单 击 “OK2” 按 钮 将 这 两 个 文件 添加 到 当前 工程 中 。 这 样 便 可 以 使 用 类 中 提供 的 方法 和 属性 。 
由 于 类 CDibObjeet 中 用 到 了 ImageLoad.dl 动态 链接 库 ， 如 前 所 述 ， 先 将 与 ImageLoad.dll 动 
态 链 接 库 相 关 的 ImageLoadh、IimageLoad.lib 和 ImageErros 复制 到 当前 工程 目录 ， 并 将 
ImageLoadJlib 凑 文 件 添加 到 工程 中 。 在 要 用 到 ImageLoad.dl 的 C++ 头 文件 () 或 实现 文件 

(cpp) 中 注意 添加 相应 的 头 文件 ， 方 法 是 文件 开头 添加 以 下 两 条 语 全 : 


#include "ImageErros,h” 
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可 nclude "ImageLoad.h" 





Insert Piles intoe Project 上 了 |xl 
查找 范围 爷 ): | 局 Digital Image Processing 可 和 铝 主 图 、 











ChildFrm. cpp 





[让 DipYyi ew_ cpp 












由 childFrm._h | Ih] Dipyiew h 
colorTable h Ih] Dip h 时 Dolor cpp 
[0 让 CombineD1g. cpp Dip.rc Ih] Dizcolor. 上 
Ilh] CombineDlg h 叶 DipDoc cpp [cj DlLaFeature cpp 

th] DipDoc.h ImsFreatureh 

划 

文件 名 0 : 「iivouject h” “Dibobjeect. cpp” 
文件 类 型 人 O); jc++ Files (ec: ?8 .ex 培 ii .htLh 种 





更 消 | 


Insert into: [opip =] 





图 13-6 ”添加 文件 对 话 杠 
图 像 读 取 、 显 示 和 存储 等 基本 功能 实现 方法 如 下 : 
1.， 添加 OnFileOpen 函数 以 打开 图 像 文件 


应 用 程序 类 CdipApp 自 带 了 “文件 \ 打 开 ” 菜 单 ， 在 此 为 这 个 菜单 项 添加 消息 映射 处 理 函 
数 。 使 用 MEFC ClassWizard 为 ID_FILE_OPEN 菜单 命令 消息 添加 OnFileOpen 函数 。 
声明 字符 数组 szFilter，szFilter 保存 了 文件 打开 和 关闭 对 话 框 的 过 滤器 数组 。 在 Dip.cpp 
文件 头 部 添加 如 下 代码 : 
char szFilter[] = "位 图 文件 (*.BMP)I*.BMPI 图 形 交 换 格 式 文 件 (*.GIF)l*.GIFIPCX 文件 


(#.PCX)l*.PCXITGA 文件 (*.TGA)l*.TGAUPEG 文件 (*.JPG)l*.JPGI 标 记 图 像 文 件 (*.TIF)l*.TIFI 所 有 支持 图 片 
|*.BMP*.GIF,*.PCX,*.TGA,*.JPG,*.TIFI 所 有 文件 (#.*#)|#.*#|"， 


CdipApp::OnFileOpen 函数 的 代码 如 下 : 
void CDipApp::OnFileOpen( ) 
{ 


static int nIndex = ] ; 


CFileDialog FileDlg(TRUE, NULL, NULL, OFN_HIDEREADONLY, szFilter ); 
FileDlg.m_ofn.nFilterIndex = (DWORD) nIndex; 


if( FileDlg.DoModal( ) == IDOK ) 

{ 
CString PathName = FileDlg.GetPathName( ); 
PathName.MakeUpper( ); 
OpenDocumentFile( PathName ); 


nIndex = (int) FileDlg.m_ofn.nFilterIndex; 


228“ 





2， 显 示 打 开 的 图 像 





基体 的 图 像 绘 制 任 务 是 在 CDipView 视 几 类 成 员 函 数 CDipView:: OnDraw 中 完成 的 ， 其 
代码 关 下 ; 
veid CDipView:ODOnDrawCDC*r PPC) 

Diplocr bpDoc = GetDocurmentf ); 

ASSERT_VALTDIPDoc); 

TODO: add draw code fornative data here 

证 IpPDoc->m_bimageLoaded》 

{ 

PDoc->LoadImageToODocumentf 上 


# 湾 动 窗 1 

CSize Si2eTotal; 

sizeTotalcx = PDoc->m_mPDibDObject->GetWidtht ); 
sizeTotalcy = pDDoc->rn_pDibObject->(CietHeightl ); 
SetScrolSizesfMM_ TEXT. SizeEotal)j; 


/ 菊 取 客户 区 尺寸 
OrPrepareDCPDC)， 

性 Reet 限 ect; 
etClientRectl 人 Rect 


/于 取 图 像 宽 谎 及 商 度 

int nimagewiqth, nImageHeight; 

nImageyidth = PDoc->in_bDibOhbject->GetWWwidtih( 六 
nimageHeight = PDoc->m_pDibObject->GetHeightl 六 


4# 当 图 像 实际 尺寸 小 于 得 口 尺 可 时 ， 将 图 像 放 在 客户 区 中 全 显 示 
int m 共 .mmYT 
if nImageYwrigth < Rect Widthg ) ) 
nX ={Rect.Widthft) - nEmageWidth )7 2 
台 ]se 
其 一 习 ， 
if nImageHeight < 及 ect,Heightf ) ) 
DY ={fRect,Height ) - nlmageHeight )7 2; 
elSC 
DY = 一 洒 ; 


if GetPFocusf 》 == this 》 
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bpDoc->m_PDibODbject->SetPalettetPDC)， 
pDoc->m_PDibDbject->Draw(pDC,nX nYTF 


] 
3， 保 奇 打开 的 图 像 


具体 的 图 像 存 情 功 能 是 由 CdipDoe 类 成 员 国 数 CDipDoc:OnFileSaveAs 实现 的 ， 本 质 上 
还 是 调用 类 CDibDObject 的 Save 裔 数 ，CDipDPoc::OnFileSaveAs 函数 的 代码 如 下 : 
void 志 DipDoc:OnEFileSaveAsf } 
[ 
TODPGO: Add your corttmand handler code Pere 


static int mnIndex = 1: 


CEileDialog DialogSaveAg FALSE, NULL, m_pDibObject->(ietImagelyamef )， 
DEFN_HIDEREAEPONLY, szFilter )， 


DialogSave 和 sm ofn.nEFilterIndex = (DWORD) nindexs 


iDialogSave 上 As.DoModal ) -一 IDOK ) 

{ 
CMainFrame +pMainFrame =(【 CCMainFrame * ) 上 fxGetviainw nd 六 
CeChildPrame *pChildFratme = CChildPrame * )pMaimnFrarne->MEBIGetActiVet 了 
CEipview +pDipYiew = (CDipView * )pPChildFrame->GetActivewiewf 


nlndex = {int DiaiogSave 上 As.mm_ofn,nFilterindex; 
inIndex ==5) 
{ 
这 全 bDibObiect->GetNumBitst ) != 24 ) 
{ 
AfxMessageBox(" 必 须 是 24 位 真 窗 色 图 像 才能 存 为 JPEG 格式 1 人 


retusrn: 


这 m_pDibobject := NULL ) 
CString sttPathNarme = DialogsSaveAs.GetEathbNamel ); 
int mnPindIndex = strbpathMName,Find( 
证 [ mnEindInqex != -1》 
strPathMName = strPathName.Leftt nFisdIndex ) 


strPathName += CDibObject:SzExtensions[ nindex - 上 ]; 
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/lm_pDibObject->ProcessImageHeader( ); 
jm_pDibObject->ProcessPalette( ); 
m_pDibObject->Save( StrPathName ); 


CString strFileName = DialogSaveAs.GetFileName( ); 
nFindJndex = strFileName.Find(".”); 
直 (nFindIndex != -1 ) 

strFileName = strFileName.Left( nFindIndex ); 
strFileName += CDibObject::SZExtensions[ nIndex - 1 ]; 
pChildFrame->SetWindowText( strFileName ); 


SetPathName( strPathName ); 

if( nIndex ==3 ) 

{ 
m_pDibObject->Load( strPathName ); 
pDipView->InvalidateRect( NULL, FALSE ); 
pDipView->UpdateWindow( ); 


} 


至 此 读 入 、 显 示 和 保存 一 幅 图 像 的 代码 就 完成 了 。 现 在 就 可 以 编译 、 运 行 此 程序 并 打开 
一 幅 图 像 来 看 看 运行 效果 了 。 图 13-7 为 打开 Image 目录 下 的 Miss.bmp 文件 的 效 末 





文件 四 查看 四 点 运算 @) 区 处 理 代 ) 区 处 理 公 ) 边 缘 与 轮 廊 四 ) 刀 和 过) 
正 交 变换 区 ) “形态 学 变换 借 ) ”图 像 复 加 妇 复 际 多 ) 窗 RtD) 帮助 四 





态 目 | 沁 侍 旬 | 印 | 人 


y 重工 SS 卫 且 了 





图 13-7 “程序 打开 图 像 时 界面 


13.4 实现 方法 


本 节 将 在 13.3 节 实 现 的 ImageProcessing 程序 框架 基础 上 添加 一 些 图 像 处 理 功 能 。 每 种 
图 像 处理 方 法 都 附 有 简单 的 原理 介绍 、C++ 实 现 方 法 以 及 MATLAB 混合 编程 实现 方法 。 
通过 本 节 的 介绍 ， 相 信 读 者 对 混合 编程 会 有 更 进一步 的 理解 ， 能 更 加 灵活 地 运用 这 些 混 
合 编程 的 方法 .为 了 使 图 像 处 理 功能 有 一 个 统一 的 界面 ,在 编制 M 函数 时 不 采用 默认 的 Figure 
界面 ， 去 掉 默 认 菜单 和 工具 条 。 
Figure 的 具体 属性 如 下 : 
fgNumber=figure( .… 
"Visible' ,of 他 ，.… 
NumberTitle ,o 任 ，.. 
MenuBar,none '); 
Visual C++ 集成 开发 环境 设置 : 
由 于 混合 编程 过 程 中 用 到 了 MATLAB 定义 的 头 文件 以 及 库 文件 ， 在 混合 编程 之 前 需要 
对 编译 环境 进行 设置 。 单 击 “Tools” 菜 单 下 的 “Options.…” 子 菜单 ， 在 弹出 的 “Options” 
对 话 框 中 选择 “Directories” 栏 ,添加 头 文 件 和 库 文 件 的 路 径 ， 分 别 如 图 13-8 和 图 13-9 所 示 。 
单 击 “Project” 荣 单 ， 选 择 “Settings” 子 菜单 ， 在 “Link” 选 项 卡 的 “Objectlibrary module” 
栏 添加 要 用 到 的 库 文 件 名 ， 如 图 13-10 所 示 。 


ET 
Er 到 了 请 证 
电 和 人 


CYProgram FilestMicrosof Visual StudiolyC98WMFCWNCLUDE 
] cHPronram FilesWMicrosoft Visual StudioWVC98WTLWNCLUDE 





图 13-9 设置 Libray files 目录 
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13-10 ”添加 用 到 的 Libray 文件 名 
13.4.1 图 像 直 方 图 统计 一 一 MATLAB 引擎 命令 实现 


直方 图 分 析 是 图 像 处 理 中 一 种 常见 的 图 像 分 析 方 法 ， 描 述 了 一 幅 图 像 的 灰 度 分 布 情况 ， 
可 用 在 图 像 分 割 、 图 像 灰 度 变 换 等 处 理 过程 中 。 从 概念 上 说 ， 直 方 图 是 图 像 各 灰 度 值 的 统计 
特性 ， 即 一 幅 图 像 中 各 个 灰 度 级 出 现 的 次 数 或 概率 ;从 图 形 上 说 ， 它 是 一 个 二 维 图 形 ， 横 坐 
标 表示 图 像 中 各 个 像素 点 的 灰 度 级 ， 纵 坐标 为 各 个 灰 度 级 上 图 像 各 个 像素 点 出 现 的 次 数 或 概 
率 。 如 果 不 特别 说 明 ， 直 方 图 的 纵 坐 标 都 对 应 着 该 灰 度 级 在 图 像 中 出 现 的 概率 。 


13.4.1.1 图 像 直方 图 性 质 


图 像 直方 图 有 如 下 性 质 : 

> ”直方 图 是 一 幅 图 像 中 各 像素 灰 度 值 出 现 次 数 〈 或 频数 ) 的 统计 结果 ， 只 反映 该 图 像 
中 不 同 灰 度 值 出 现 的 次 数 〈 或 频数 )， 而 不 能 反映 某 一 灰 度 值 像素 所 在 位 置 。 也 就 
是 说 ， 它 只 包含 了 该 图 像 中 某 一 灰 度 值 的 像素 出 现 的 概率 ， 而 丢失 了 其 所 在 位 置 的 
信息 。 

> 任 一 幅 图 像 ， 都 能 唯一 地 确定 出 一 幅 与 它 对 应 的 直方 图 ， 但 不 同 的 图 像 可 能 有 相同 
的 直方 图 ， 即 图 像 与 直方 图 之 间 是 多 对 一 的 映射 关系 。 

> 由 于 直方 图 是 对 具有 相同 灰 度 值 的 像素 进行 统计 得 到 的 ， 因 此 ， 一 幅 图 像 各 子 区 的 
直方 图 之 和 就 等 于 该 图 像 全 图 的 直方 图 。 


13.4.1.2 ”图像 直 方 图 统计 C++ 实现 


直方 图 统计 数据 是 通过 CPointPro:: CreateHistogram 函数 实现 的 ， 函 数 定义 如 下 : 
int *CreateHistogram( int int, int, int, unsigned char *, RGBQUAD *， int CDibObject *pDibObject = 
NULL ); 

该 函数 创建 传 入 的 CDibObject 对 象 中 图 像 的 直方 图 。 如 果 进 行 此 调整 之 前 没有 指定 一 个 
CDibObiject 对 象 指针 , 则 必须 在 调整 时 加 以 指定 。 任 何 未 传 入 的 坐标 值 或 默认 的 -1 坐标 值 都 
将 被 置 为 图 像 的 最 大 值 或 最 小 值 。 变 量 nX1 和 nYl 将 被 置 为 0, nX2 将 被 置 为 图 像 宽度 减 1， 
nY2 将 被 置 为 图 像 高 度 减 1。 要 在 整个 图 像 上 进行 操作 时 ， 最 好 的 方法 是 不 传 入 nX1、nY1、 
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nX2 和 nY2 的 值 ， 这 样 它们 会 被 默认 为 整个 图 像 。 

在 ImageProcessing 项 目 中 添加 对 话 框 资源 IDD_PLG_Intensity， 创 建 一 个 CDlgIntensity 
类 .在 它 的 构造 函数 中 初始 化 威 员 变量 ， 添 加 妈 M_PAINT 的 请 息 映 射 水 数 OnPaintt )， 然 后 
在 消息 遇 射 前 数 中 绘制 直方 图 数据 。 定制 好 对 话 框 后 , 可 以 在 沫 单 IDR_DIPTYPE 的 View 珊 
下 添加 ID_YIEW_HIST 〈Caption 为 直方 图 ) 菜单 ， 利 用 ClassWizard 在 类 CdipView 中 添 吉 
国 数 实现 直方 网 的 显示 。 其 体 代码 如 下 : 

void CDipView::OnViewHistU ) 

[ 
CDipPDoc+ pPDoec = GetDeecurmentt 外 
上 SSERT _VYAILIDIpPmoch: 


1 判断 当前 是 否 有 图 像 对 象 
证 pDoc->rm_pDibDObjeet == NULL ) returni 


1 在 点 处 理 CPointPro 类 中 创建 用 来 绘制 直方 图 的 数据 
CPoirtPro PointDOPerationt pDoc->tm_PDibDObject 和 





int +mHistogram = 了 PointDOPperation.GetHistograrm 


8 生成 一 个 对 话 框 CHistDlg 英 的 实例 
”CDlgTntensity HistDlg; 


# 将 终 制 直方 图 的 数据 传递 络 CHistDlg 对 话 杠 类 的 会 在 成 员 变 量 mm pnHistograrm 
这 pHistogrart != NUILL ) 
{ 

fj 设置 直方 图 数据 指针 

HistDlg.nm_ pnHistogram = PHistograrm; 

1 设置 当前 像素 值 为 0 的 像素 数 

HistD]g.m_nCurrentPiexsMNunm = hhHistograml0]; 

1 设置 是 否 为 256 级 灰 度 图 像 

HistDIg.m_bIsGray256 = PointOPerarion.ISGray256( 


8 显 寺 对 话 框 
ff HistDlg.DoModal ) = IDOK) 


Teturr， 


delete 日 PHistograrn; 
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13.4.1.3 ”图像 直方 图 统计 混合 编程 实现 一 -MATLAB 引 共 命 令 实现 


本 市 将 通过 MATLAB 引擎 实现 图 像 的 直方 图 统 计 ，MATILAB 引擎 库 提供 了 一 系列 的 函 
数 司 外 部 程序 能 和 它 进 行 诡 互 。 针 对 不 同 的 命令 组 合 ， 可 以 实 坝 不 同 的 混合 编程 方法 。 本 节 
先 介 绍 利 用 命令 engEvyalString 的 混合 编程 方法 。 
在 IDR_DIPTYPS 菜单 资源 的 Wiew 菜单 下 添加 ID_VIEW_HISTMATLAB 菜单 ， 利 用 
ClassWizard 在 类 CDipdoc 添加 响应 函数 ， 代 码 如 下 
void CDipDec:OnViewHistmatlab( ) 
{ 
Engine *#eTi 1 定义 MATLAB 引擎 变量 
CStnng comrmanq; 
ffIep=engOpent 7 1 打开 MATILAB 引擎 
{ 
fprintffstderr "mn MATLAB 引擎 局 动 朱 败 m 人 
MessageBox(NULL"MATLAB 引擎 户 动 和 失败" "MATILAB", MB_ODK IMB_ICONERROR)， 
exXit[f-17; 


CString stPathNarme = GetPathName( ); 
1 呈现 WATLAB 命令 
command="data=itmread("+stPathNamet")"; 


/通过 MATLAB 引擎 执行 MATLAB 命令 
engEvalString(ep, eormmmand]; 

eneEBvalString(eb， 企 Sure:imshow(datal" 和 
erngEvalString(ep, "figurefVisibleoffr ,NumberTitie ,off Name， 图 像 的 直方 图 统计 
ienuBarnone' ,imhisttdata] 和 


MessageBox(NULL," 关 闭 MATLAB 引擎 ， 系 统 将 退出 MATLAB 应 用 程序 "MATLAB" MB_OK 1 
MB_ICONINFORMATION); 

engClose(ep)， 7 关闭 MATLAB 引 苟 ， 退 出 MATLABw/ 

} 


13.4.1.4 ”图 像 直 方 图 统计 混合 编程 效果 演示 


编译 整个 项 目 文件 ， 运 行 生成 的 EXE 文件 。 通 过 “File” 菜 单 下 的 “Open” 子 菜单 ， 打 
开 image 目录 下 的 Miss.bmp 图 像 文件 ， 然 后 在 菜单 “View” 下 选择 “直方 图 ” 子 菜单 ， 可 
以 看 到 利用 C++ 实现 的 直方 图 统计 结果 ， 如 图 13-11 所 示 。 在 菜单 “View” 下 选择 “直方 
图 一 MATLAB 引擎 ” 子 菜单 ， 程 序 将 调用 MATLAB 引擎 进行 原始 图 像 的 显示 及 图 像 的 直 
方 图 统计 ， 结 果 分 别 如 网 13-12 和 图 13-13 所 示 。 
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图 13-11 “C++ 实现 的 直方 图 统计 结果 
Figare 了 ol xx 
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图 13-12 ”通过 MATLAB 引擎 显示 Miss.bmp 文件 


间 俐 的 直方 图 统计 
KE 





图 13-13 MATLAB 引擎 实现 直方 图 统计 





13.4.2 ”图像 形态 学 一 -MATLAB 引擎 数据 交互 实现 


。 数学 形态 学 是 一 门 建立 在 严格 数学 理论 基础 上 的 学 科 ， 主 要 是 通过 物体 和 结构 元 素 相互 

作用 的 某 些 运算 ， 获 二 物体 拓扑 和 结构 信息 。 数 学 形态 学 具有 完备 的 数学 基础 ， 即 集合 论 。 

数学 形态 学 的 算法 共有 天 然 的 并 行 实现 的 结构 ， 可 大 大 提高 图 像 分 析 和 处 理 的 速度 。 它 
可 用 于 简化 赂 像 数 据 ， 保 持 它们 基本 的 形状 特性 ， 并 除去 不 相关 的 结构 。 事 实 上 ， 数 学 形态 
学 已 经 构成 一 种 新 的 图 像 处 理 方法 和 理论 ， 成 为 计算 机 数字 图 像 处 理 的 一 个 重 裴 研究 领域 ， 
并 且 马 经 应 用 在 多 学 科 的 数字 图 像 分 析 和 处 理 过程 中 .例如 基于 击 中 / 击 不 中 变换 的 目标 识 
别 ， 基 填 流 域 概 念 的 图 像 分 割 ， 基 于 腐蚀 和 开 运 算 的 骨架 抽取 及 图 像 编 码 压 缩 ， 基 于 测 地 上 距 
窟 的 图 俐 重建， 基于 形态 学 滤波 器 的 颗粒 分 析 等 。 

限于 篇 幅 ， 本 池上 只 介绍 简单 二 值 图 像 的 形态 学 运算 ， 对 于 亦 度 图 像 的 形态 学 运算 ， 有 兴 
趣 的 读者 可 以 参阅 相关 的 矢 考 书 。 


13.4.2.1 腐蚀 和 膨胀 


设 A 为 图 像 集合 ，$ 为 结构 元 素 ， 数 学 形态 学 运算 是 用 $ 对 A 进行 操作 。 需 要 指出 ， 实 
际 上 结构 元 素 本 身 也 是 一 个 图 像 集合 。 对 每 个 结构 元 素 可 以 指定 "个 原点 ， 它 是 结构 元 素 参 
与 形态 学 运算 的 参考 点 。 原 点 可 以 包含 在 结构 元 素 中 ， 也 可 以 不 包含 在 结构 元 素 中 ， 但 运算 
的 结果 通常 不 相同 。 

二 值 图 像 基 本 的 形态 学 运算 是 腐蚀 和 膨胀 ， 其 数学 定义 请 参阅 有 关 书 籍 。 腐 蚀 是 消除 物 
体 的 所 有 边界 点 的 一 种 过 程 ， 其 结果 是 使 剩 下 的 物体 沿 其 周边 比 原 物体 小 一 个 像素 的 面积 。 
如 果 物 体 是 圆 的 ， 它 的 直径 在 每 次 将 蚀 后 将 减少 两 个 像素 ， 如 果 物 体 在 某 一 点 处 任意 方向 上 
连通 的 像素 小 于 三 全， 那么 该 物体 经 过 一 次 腐蚀 后 将 在 该 点 处 分 裂 为 两 个 物体 。 脱 胀 运 算是 
将 与 某 物 体 接 触 的 所 有 背景 点 合并 到 该 物体 中 的 过 程 。 过 程 的 结果 是 使 物体 的 面积 增 大 了 相 
应 数量 的 点 ， 如 果 物 体 是 圆 的 ， 它 的 直径 在 每 次 膨胀 后 将 增 大 两 个 像素 。 如 果 两 个 物体 在 某 
一 点 的 任意 方向 柑 隔 少 于 三 个 像素 , 它们 将 在 该 点 连通 起 来 。 以 下 用 阴影 代表 值 为 1 的 区 域 ， 
白色 代表 值 为 0 的 区 域 ， 运 算是 对 值 为 工 的 区 域 进行 ， 如 图 13-14 所 示 。 















































图 13-14 ”腐蚀 和 膨胀 示意 图 
13.4.2.2 ”膨胀 和 腐蚀 算法 的 C++ 实现 


膨胀 和 腐蚀 算法 的 C++ 实现 代码 如 下 : 
晴晴 畏 畏 轨 归 和 


*237。 


ABODOL MakeErosionr ) 

















并 

/基本 功能 ， 本 示 数 对 图 像 数据 执行 腐蚀 如 作 。 
-一 

/参数 说 时 ， int +*nMiask 结构 元 素数 组 指针 

凡 int nmMaskLen 锐 构 元 素 长 度 《 以 点 数 为 计数 单位 
形 unsigned char *PCnat 输出 图 像 数 据 指针 

玫 usigned chnar *#Pin 输入 图 像 数 据 指 轩 

背 int nWidthBytes ”图像 宽 堪 《以 字 节 表示 ， 

1 int nW'idth 图 像 宽 度 〈 以 像素 表示 ) 
并 int nHeieht 图 像 高 度 
-一 

/返回 BOOL 

并 成 功 返 回 TRUE， 失 败 返 回 FALSE。 
1 一 

/注意 ， 此 函数 声明 为 保护 型 ， 只 能 奔 CMiorphPre 类 中 使 用 。 
并 


AAA 
BODL CMorphPro::MiakeErosionfint *nviask, int mnMasKkLen， 
unsigned char *put, ursigned char *pirl， 
int nWidthBytes, int nWidth, int nHEight) 
4 若 传 入 的 图 像 数 据 为 室 ， 将 无 法 完成 操作 ， 直 接 返 回 
ipout == NULL pH == NULL)I TIetmrIn FEATLSFR; 


# 定 义 变量 
ipt X，Y， KK; 
unsigned char fark， 


1/ 执行 魔 蚀 操作 
forly = 位 了 <nHEeight' y++ ] 
{ 
unsigned char #pOutTemp = PDut 
POutTemp += YYkmwidthBytesi 
for X = 人 :XSDnWiqth; x++ ) 
{ 
Mark = 1: 
fof (kk=m0;K<DnMaskLen; K++)》 
{ 
jj 不 能 处 理 边界 像 素 
这 人 X TIMaskK[2 上 ] >= 昌 ) 贞 友 
(人 十 miMasKk[2 二 K] < mwWidty 多 食 
”238。 





(7 +TMask[2*k+1]>= 0 必 委 
(7 十 DMIaskt2*#k + 二 <nHeighty) 





{ 
unSigneq chasr Pata; 
取 与 模板 中 位 置 相 对 应 的 像素 值 
tnsigned char #pTermp = Pin， 
PTIemp += YY# nWwriqthBytes; 
PTIemp += njvtas 区 [之 *k 十 ]] *myWidth 了 ytes; 
Data = PJIemp[x + nask[2*k]]， 
这 Data != 2351) 
{ 

KMark = 昌 ; 
攻 =DmwiaskLen' 

】 

| 

else 

{ 
KMIark = 必 
K = hnMEasKELen; 

] 

} 
这 fark == 1] PPOutTIermap[x] = 255; 
1 
1 
IEeturmm 工 RUE; 
} 


-函数 MakeErosiont ) 是 一 个 保护 型 亢 数 ， 在 文档 类 中 不 能 育 接 调用 ，CMorphPro 类 (形态 
学 处 理 类 ) 提供 了 一 个 公有 型 函数 Erosion( )， 可 调用 MakeErosion( ) 进 行 腐蚀 运算 。 有 关 
CimorphPro 类 的 详细 说 明 请 参考 本 书 配套 光盘 。 

Erosion( ) 函 数 核心 代码 嫩 下 ; 

AAA 和 阳 和 刘表 生 


ADOOL Eresiont ) 

# 基 本 功能 : 本 函数 对 CDibDbject 对 银 中 的 图 像 进 行 腐 蚀 运 算 
/参数 说 明 ，jnt #mnMas 结构 元 素数 组 指针 

太 int nMaskLen 结构 元 素 长 度 〔 以 点 数 为 计数 单位 》 
F CDibobjest “*pDibobjeet ”输出 图 像 数 据 指 针 


1 返回， 成 功 返回 TRUE， 失 败 返 加 FALSE 
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AN 
BOOL CorphPro::ETosiomtint *TVaskK， int hnMaskLen, CEBDibObjiect *pDibObject) 


{ 
8 使 用 传 入 的 CDibDhbiect 对 急 
这 pDiboObject := NULL ) m_pDibObject = PDibObject; 
8 无 CDbibObject 对 银 , 返回 FALSE 
这 和 PPDibDbjeet 一 NULL )y Tetnrnt 王 太 TS 注 





4# 不 是 8 位 灰 度 图 像 
int nNumBits = mpDipObject->GetNumBitst 少 
这 hnNurmBits != 和 ) Teturnf FALSE 》 


/获得 图 像 宽度 和 高 度 及 字 节 宽度 

int nWidth = mm_pDibDbject->GetYWwigtbt 六 

int mHeight = m_ piDipbObject-> 人 etHEightt 》 

jnt nyWjidthBytes = rm_PDibObject->WidhBytes(8, nWidtby; 


/图像 数据 区 大 小 
DWORP dwSize = nWidtiBytes + mnHeight; 


# 莫 得 图 像 数 据 区 指针 
unsigned char *pOldBuffer = GetBitsPointt 二 


! 为 新 图 像 分 配 内 存 
HGLOBAL hNewDip = :GlobaliAlioc( GMEM_MOVEABLE IGMEML_ZEROINTT dwSize ): 


广 hNewEib == NULL ) 

{ 
m_PDibObject->sr_nLastError = IMAGELIB_MEMORY ALLOCATION_ERROR， 
2GlobalUnlock rm_pDibObject->GetDibk 7) 六 
returnf 下 ALSE ) 


/新 图 像 数 据 指针 


armsigned char *pPNewBnuffer = (unsigned char *) :GlobalLockf hNewDib ); 


让 人 PNewBuffer ==NULLIPOIdBuftfer == NULL) 


afxMessageBox(" 数 据 纤 冲 区 定位 出 错 1 
IEtirn (EPEATLSE); 





1 将 原 图 像 效 据 移 动 到 新 图 像 中 〈 原 图 像 数 据 清 零 》 
MoveBufterpewBuffer pOldBuffer (LONGHKwSize]i 














f 调 用 MakeErosionf ) 保 护 型 胃 数 进行 腐蚀 操作 
MakeErosion(nMask, nmnMasklLen, poOldBufter PNewBuftifer nW 到 thBytes nW idth,nHeight); 


/将 内 存 解 锁 和 将 不 再 使 用 的 内 存 释放 
:lobalUmeockt mpPDibObject->GetDibf ) 
2GinobalUanalockf hNewDib 六 

:GlobalFreet nDNewDib 》; 

tetrnf TRUE )， 


当 膨 胀 算法 的 C++ 实现 时 , 可 仿 照 MakeErosiont ) 函 数 编号 一 个 MakeDilation( ) 函 数 进行 
膨胀 运算 。 与 腐蚀 类 似 ， 由 Dilation( ) 调 用 MakePilation( ) 函 数 来 实现 脱 胀 运算 。 


13.4.2.3 ”形态 学 应 用 实例 一 细 化 


下 耐 利 用 二 值 形 态 学 ， 给 出 一 个 进行 二 值 区 域 形 态 学 风化 的 实例 。 图 像 处 理 中 常见 的 操 
作 之 一 是 “骨架 化 ” 即 对 图 像 进行 “ 风 化"”。 图 像 细 化 是 从 原来 的 图 像 中 去 罩 一 些 点 ， 但 仍 
要 保持 日 标 区 域 的 原来 形状 ， 通 过 细 化 操作 可 以 将 -个 物体 细 化 为 一 条 单 像素 宽 的 线 ， 从 而 
图 形 化 地 亚 示 出 其 拓扑 性 质 ， 实 际 上 ， 图 像 细 化 就 是 保持 原 图 的 骨架 。 例 如 ， 一 个 长 方 堪 的 
骨 棵 是 它 的 长 方向 上 的 中 轴线 ， 正 方形 的 骨架 是 它 的 中 心 点 ; 圆 的 骨 浊 是 它 的 圆心 ， 直 线 的 
骨架 是 它 自身 ， 孤 立 点 的 骨 棵 也 是 自身 。 

图 像 处 理 中 物体 的 形状 信息 是 十 分 重要 的 ， 为 了 便于 描述 和 抽取 图 做 特 定 区 域 的 特征 ， 
对 那些 表示 物体 的 区 域 通常 需要 采用 细 化 算法 处 理 ， 得 到 与 原来 物体 区 域 形 状 近似 、 由 简单 
的 弧 或 曲线 组 成 的 图 形 。 在 文字 识别 、 地 质 构造 识别 、 工 业 零 件 形状 识别 或 图 像 理解 中 ， 先 
对 被 处 理 的 图 像 进行 细 化 有 助 于 罕 出 形状 特点 和 减少 元 余 信 息 量 。 对 于 任意 形状 的 区 域 ， 细 
化 实质 上 是 诠 独 操作 的 变 体 ， 细 化 过 程 中 要 根据 每 个 像素 点 的 八 连通 区 域 情况 来 判断 该 点 是 
否 可 以 删除 或 保留 。 

细 化 算法 的 C++ 实现 是 通过 CMorphPro::ThiningDIB{ ) 实 现 的 ， 角 数 定义 如 下 ， 

AU 
HBOOL ThiningDIBI ) 
凡 ------ -------- 
87 基本功 能; ， 林 卫 数 对 CDibObjeet 对 象 中 的 的 图 估 进 行 细 化 运算 
1 一 -- 
1 参数 说 明 : CDibDbject *pDibObject 默认 为 ULL 
由 
# 返 回 ， BOOL 
下 成 功 返 回 TRUE， 失 败 返 回 FALSE 
站 
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1 

BOOL CMorphPro::TRiningDIBCDibObject *pDibObjeeU 
1 全 用 传 六 的 CDibDbject 对 乌 
i PDibObject != NUELL ) m_pDibDObject = PDibDbject 
# 无 CDibObjeet 对 象 , 返回 了 LSE 
这 mr_pDibDObjeet == NULE ] rehuumt FALSR 


定义 变量 

unsigned char *pBuffer, *pBits， 
RGBQUAD *pPalette; 

int TYWidthBytes, nNUrmCeltors; 
int 1Wid 中 .JIHeighti 


4 获得 医 像 指针 
pBuffer = (unsigned charc *] rm_pDibObject->GetDIBEPointe 尼 HWidthBYytesS， 
nm_PDibOhbject->GetNurmBitst ) 六 

这 PBuffer 一 NULL )] TetnmTI NUELL 

/获得 上 颜色 将 

nNumColers = m_pDibObject->GetNurmColorst ) 

4 获得 调 色 板 指 针 

PPalette = { 攻 GBQUAD 3 &pBuffer[sizeof(BITMAPFILEHEADRR)+sizeoff(BITMAPINFOHEADERJ]: 

# 获 得 位 图 妆 据 指针 

PEBis = (unsigned char *#) 秋 pBufter[sizeoffBITMAPFILEHEADER)+sizeoffBITMAPINFOHEADERi 
nMNumColersrsizeoffRGBOQUADI]]: 





1]Width=m_pDibObject->GerwWidth( ); 
1]Height=m_pDibObject>GetHeightl 放 
AAA 
W 指向 源 图 像 的 指针 

LPSTR jpsrec; 

4 指向 缓存 图 像 的 指针 

1LPSTR 1pDst， 

# 指向 野 存 DIB 图 像 的 指针 

LPSTR jpNewDIBEBits: 

HLOCAL PhNEewDIBBits; 

1 用 标记 

BOOL bMedified; 

4 循环 变 量 

lonmg 1 

]ong j; 

int mi 
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int 5 

/14 个 条 和 件 

BOOL beCondition1; 
BOODL bCondition2， 
BOOL bCondlition3; 
BOGOL bCondition4; 

fi 计数 器 

Unsigned char nCouant; 
/像素 信 

Unmsigned ehar 依 Xe]; 

/后 X5 相 邻 区 域 像 素 值 
Unsigned char neighbour[5j[Lsj; 


#W 暂时 分 配 内存 ， 以 保存 新 图 像 
hNewDIBBits = LocalAlioc(LHND, LIWad * 1Height; 
让 个 NewDIBBits == NULHEL) 
# 分 配 肉 存 失 败 
return FALSE; 
} 
/ 锁定 内 存 
lpNewDIBBits = (char * )LocalLockthNewDIBBits)， 
# 初始 化 新 分 配 的 内 存 ， 设 定 初始 值 为 255 
]pDst = (char +PNewDIBBits; 
Inetmsetfl]PDst (BYTR)255, 1Width + Height); 
hoditied=TRUE; 
whiletbModified) 
{ 
bModified = HALSE: 
# 韧 始 化 新 分 配 的 内 存 ， 设 定 初始 值 为 255 
IpDat = (echar *JPNewDIBHBits; 
Inemise]pDst (BYTE)2535, Width *+ Heightb; 
forfj = 2 j <LReight-23 j+H) 
{ 
forfi = 2 <TWidth-2; i++) 
{ 
bCendtiticonl = FALSEE， 
beondition2 = FALSE: 
bCondition3 = 下 ALSE; 
bcConditicnd4 = FALSE: 











/由 于 使 用 5X5s 的 结构 元 素 ， 为 防止 越界 ， 所 以 不 处 理 外 围 的 几 行 和 几 列 像素 





sa 43 = 











# 指向 源 图 像 倒数 第 j 行 ， 第 站 个 像素 的 指针 
]PSrc = (char *)pRBits + JWidth * 十 ji 
8 指向 目标 图 像 倒数 第 j 行 ， 第 工 个 创 礁 的 指针 
上 bDst = {char +JpNewDIBBits +ywidths*j+1li 
下 得 当前 指针 处 的 像素 值 ， 洋 意 芝 转换 为 unsigned shir 型 
Pixel = (unsigned char)*lpSte; 
# 日 标 图 像 中 含有 0 和 255 外 的 其 他 页 度 值 
这 Xel = 259 委 上 ]pSre := 站 ) 
Areturn FALSE; 
Corttirtue; 
1 如 果 流 疼 像 中 当前 点 为 色 ， 则 此 过 
们 1Se 1PIXeE 一 一 了 535) 
Continue: 
/获得 当前 点 相 邻 的 Sxs 区 域内 像 凤 值 ， 白 色 用 由 代表 ， 畦 色 用 工 代 赤 


forftm = DOsatm< St++) 





{ 
for (位 = 有 :nn < SDH) 
{ 
meighbour[m][n] ={255 - funsigned charyflpSrc + (4 -II -之 症 jWwidth +m- 了 让 
5 
} 
| 
1 名 个 判断 条 性 


1 到 炳 2<=NZIPLY<=6 
nCeunt = neighbour[L1[1] + peighbeur[1]t2] + neighbour[][31、 
+ nejghbourl2j[1] + meighbour[2][3] + 
+ Peighbour[3][1] + ne 这 hbourl3][2] + neighbonr[3j[3]; 
让 fneCount >= 2 六 呈 DCount <=D) 
bConditionl = TRUE; 
fi 判 时 ZOPU=1 


neCount = 曲 ; 

让 fneighbour[l]f{2] == 昌 区 六 neighbour[] [1 = 肌 
COUntH+; 

让 fneighbour[]I][1] == 太朗 meighbour[2]0] == 有 
TCDOUTIE 二 十; 

计 {Peighbout[21[t] == 丫 设 庶 neighbourl3jf 雪 == 1 
nmCountr+; 

让 (neighbout[3 了 1] == 正 皮 瞻 nejghbour[3jf2] == 1 
DOURt+ 十 ; 

下 (neighbour[3H2] == 站 上 庶 衣 nieighbouzr[3][3] == 1 
nCount++: 


耻 (neighpour[313] == 日 让 应 meEighboui[21131 == 二 
2244 ， 





mmCoant 十 十 : 

证 {neighbour[2][3] == 自 朗 廊 mejighbour[1i[31 == 坊 
Count++; 

让 (neighbour[1]1[3] == 避 疯 庶 neihbour[1][2] = 二 
mnCount+ 二 ， 

让 (nnCount == 1 
bConditionz2 = TRUE': 


1 判断 fp2*Pd4+P8-0 or Z0NP21I=1 
示 {neighbour[1][2]*mneighbour[2][1]*#aeighboufr[2][3] = 一 人 
bCondition3 = TRUE; 


全 8 
{ 
nCount = 日 ; 
计 fneighbour[O1[2] == 自 皮衣 neighbour[0OI[1 == 1 
COUTtT 十 ; 
证 fneighbour[Ol[11 == 0 尼 睁 me 这 hbour[]][]] = 二 
Pt-OUnt+ 十 ; 
让 (neighbour[l][1] = 一 六 文生 neighbour[2][1] 一 1) 
DCOuntH+; 
让 (neighhourf2][]] = 站 友 上 neighbonrf2]t2] 一 1) 
mnCOUntL 二 ; 
二 [neighbour[2]f2] == 0 让 点 8eighbour[2][3] == 十 
mCDunt 二 十 ; 
这 fneighboufr[2][3] == 0 皮下 neighbeour[1jL3T == 二 
DOUTLE 十 ; 
评 {fneighbour[11[3] == 0 皮 区 meighbour[01L31 == 1 
DCount++: 
下 (neighbour[0][3]1 == 六 六 皮 neighbour[O[2] 一 1 
DCount++; 


让 (noCouht := 1 
pbCondition3 = TRUE; 
} 
1 判断 P2+*P4+P6=0 otZ0O0p4)=1 
这 (neighbour[1][2]*neighbour[2][1*meighbeour[3j[2] == 急 
bCondition4 = TRUE; 
else 
{ 
neCeunt = 0 
让 (neighbour[1][1] == 0 信玄 neighbour[1][O] 一 二 
nCOUnt+ 二 ; 
证 fnejghbour[1][0] == 0 朗 交 neighbour[2][0] == 了 
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nmCountH: 


证 fneighbour[21]1[0] 一 0 交 上 neighbour[3][0] == ]) 


TOUnt+ 十 : 

让 (neighbeour[3]f] == 站 上 度 六 neighbour[3][1] = 切 
玉 -Ouftt++; 

”应 (neighbour[3][1] == 种 变 让 neighbour[3H[2] == 3 
3 人 DUO4L+ 十 ， 

这 fneighbeur[3][ 了 ] == 曲 康 生 neighbour[2]i2] 一 有 
mCOouUnt++; 

证 fneighbour[2][2] -日 六 朗 neighbeour[1][2] == 
RCOUnt+ 十 ; 

让 fneighbour[1l][2] == 0 贞 伪 neighbour[D] == 1 
Dt2ount 二 十 


tnCount += 和 
bCondition4 = TRUE， 
j 
证 bConditionl 必 衣 beondition2 皮 丰 bCondition3 六 及 bCondition4) 


[【 
站 lpDat = (unsigned chatri25591 
hbModified = TRUE; 

} 

中 Se 

{ 
#jpDst = (unsj 这 hed chat0; 

] 


/ 复制 痪 蚀 后 的 图 像 
merrcpPytPBits, jpNewDIBBits, ]Widt 由 二 THeighty 
} 
# 复制 诊 乌 后 的 图 像 
memcpyfoBits, ]PewDISBits, 1Width * 1]Height; 
j 释放 内 存 
LocalUnlock(hNewDIBBits); 
LocalFreefhNewDIBBits); 
# 返 加 | 
Tetum TRUE; 
IDR_DIPTYPE 的 形态 学 变换 菜单 项 下 添加 MORPH_THINING 《Caption 为 细 化 》 菜单 ， 
利用 ClassWizard 在 类 CDipDec 中 深 辑 数 实 现 图 像 的 细 化 。 具 体 代码 如 下 : 
void CDipDoc::DnMorptTtiningt ) 
{ 
“246。 








1 创建 形态 学 处 理 CMorphPro 类 对 象 
CierphPro MiorphProcessesf Imn_DpDibtbiject ); 


4 更 改 光 标 堪 状 
BeginWraitCursorf 


MerphProcesses.EhiningDIB(Im_PDibebject: ， 
81 陈 复 光标 
EndWatCUrsorl ]; 


f 更 新 视图 
UpdateAilViews(NULILD; 
】 


13.4.2.4 “形态 学 算法 的 混合 编程 实现 一 一 MATLAB 引擎 数据 交互 


在 ID 为 “IDR_DIPTYPE” 的 “形态 学 变换 ”菜单 项 下 添加 了 菜单 ， 其 标题 为 "MAILAB 
形态 学 腐蚀 ” ID 为 “ID_MORPH_ EROSION_MATILAB”。 利 用 ClassWizard 在 类 CDipDoc 
中 添加 函数 OnMorphErosionMATLAB( ) 实 现 图 像 的 腐 鳃 。 有 具体 代码 如 下 : 

void CDipDoec::DnMorphErosionMAILAB( ) 
/通过 向 MATLAB 空间 发 送 变量 实现 混合 编程 

Engine *ep; /定义 MATLAB 引擎 变量 

ITmxAarray *T = NULL: 
IDXArray *Data= NULEL; 
IIXArray *Result=NULL， 
if(lfep=engOpent 07)D /人 对 [ 开 MATLAB 引擎 
{ 

















fprintflstderr nn MATLAE 引擎 启动 失败 nn 人 
MessageBox(NULL, "MATLAB 引擎 自动 失败 "MaTLAB" .MB_OK INMB_ICONERRGRT; 
exit(-1); 

} 

1 向 MATLABE 空间 导 送 图 像 文件 名 

CString strPathName = GetPathMNatmet ); 

T=mxeCreate9tringtstPathNarmey 

engPutVariable(ep，T ，1; 


并- 一 


# 向 MATLAB 守 间 传送 图 像 数 据 


/图像 指 针 为 空 ， 雹 法 操作 返回 
过 m_PDibDbject == NULL) Teburm: 
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4 对 不 是 8 伺 的 图 像 不 作 任何 操作 育 接 返 同 
iftm_pDibDbject->GetNumBirs( ) != 8) 





AfxMessageBoxf 日 前 只 支持 8 位 图 像 的 处 理 ! 


IEebucn; 


Ap 切取 图 像 宽度 和 商 麻 〔 以 像素 为 单位 ) 
intnwiath = mm_PDibpObject->GetWiQtht 
int mnHeight = m_PDibObject>OerHeightl ); 


4 定义 安 量 

unsigneq char *pBuffer; 
unsigned char *PBits; 
ROBQUAD *PpPalette; 
intnWwWidthBytes nnMNUmCOIoTS， 


17 获得 图 像 指 针 

pBuffer = (unsigned char *y mL_pDibObject->GetDIBPointerl 改 nDWidthBYytes， 
mm_bDibObjectr>GetNumBits( 让 

这 pBufter == NULI ] Fetnrni 


/获得 颇 色 数 

nNumColors =.nm_pDPibebject->OGetNutmcCaolorsk 上 

# 芝 得 调 色 板 指针 

bpPalette = (RGBGQU 太 DD 村 此 bpBuffer[sizeofBITMAPFILEHEADER) + SizeotBITMAPINROHEATLERJ]; 

4 获得 位 图 数据 指针 

pBits = (unsigned char ”} 信 pBuffer[sizeof(BEITMAPEFILEHEADER) +sizectBITMAPINEOHEADER》 
+TNumCoelors 二 Sizeof(RGBNGUADI1; 

1 图 者 数据 区 大 小 【 字 节 总 数 ) 

DAWwWDORD SizeTmage = mwWwidthBytes * nmHeight: 


三 ---- 一 -------------- 一 -一 --------------- 一 -一 


/创建 留 移 数据 宅 阵 
Data=mxCreateNumericMatrixtnHeight  nWidthBytes mxXUTINTS CLASS IDXREAAL); 
# 用 metmepy 内 存 拷贝 页 令 将 图 像 数 据 赋予 托 阵 
Inemepy((char *mXGetPr(Pataj) (char +)pBits, SizeImage); 
f# 传 送 到 MATLAB 空间 
enePutwariablerep，“ 世 ata Dataj; 
1 再 几 rot90f ) 丙 数 将 :维和 矩阵 道 时 针 旋 转 90 度 ， 将 矩阵 变 为 nHeightXxnWidthBytes 的 二 维 诈 阵 
# 并 使 的 矩阵 的 第 nHeighl 行 对 应 图 像 数 据 的 第 -- 行 数据 
engEvalStringfep, Data=rot90fData] 
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engEvalString(ep,"SE = strel(0'square',[3 3])”); 
engEvalString(ep,，Result = imerode(Data,SE)”); 

engEvalstring(ep，Result=rot90(Result,-1)"); 

Result=engGetVariable(ep,"Result”); 


memcpy((char *)pPBits, (char *)(mxGetPr(Result)), SizeImage); 


/关闭 MATLAB 引擎 ， 退 出 MATLAB*#/ 


engClose(ep); 


/内 存 解锁 

:GlobalUnlock(m_pDibObject->GetDib( )); 

UpdateAllViews(NULL); 

} 

类 似 地 ， 在 ID 为 “IDR_DIPTYPE” 的 “形态 学 变换 ”菜单 项 下 添加 “MATILAB 图 像 膨 

胀 ” 和 “MATLAB 图 像 细 化 ” 子 菜单 ， 并 利用 ClassWizard 在 类 CDipDoc 中 添加 对 应 的 函数 
实现 图 像 的 膨胀 和 细 化 。 图 13-15 至 图 13-18 分 别 是 MATLAB 引擎 实现 图 像 Circles.bmp 的 
腐蚀 、 膨 胀 和 细 化 结果 。 


* _ CIRCLES 了 避 卫 * [CIRCILES -也 由 





图 13-15 ”原始 图 像 图 13-16 ”图像 的 腐蚀 结果 


4 CIRCLES -也 卫 * _ CIRCLES 了 本 也 





图 13-17 图像 的 膨胀 结果 图 13-18 图 像 的 细 化 结果 
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13.4.3 图 像 的 FFT 变换 一 一 通过 Mideva 实现 
13.4.3.1 快速 傅 里 时 变换 介绍 


对 俩 像 进 行情 里 叶 变 换 ， 可 以 得 到 图 像 在 频 域 的 信息 。 对 图 像 进 行 博 里 于 变换 还 需要 解 
决 两 个 问题 : 一 是 在 数学 中 进行 傅 里 叶 变 换 的 捕 O0 为 连续 《模拟 》 信号 ， 而 计算 机 处 理 的 基 
数字 信号 【图 像 数 据 ); 一 是 数学 上 来 用 无 穷 大 概念 ， 而 计算 机 只 能 进行 有 限 钦 计算 。 通 常 ， 
将 受 这 种 限制 的 傅 里 叶 华 换 称 为 离散 傅 里 时 变换 《Discrete Fourier Transform，DEFT)。 离 散 
傅 蛙 叶 变 换 计算 量 非常 大 ,运算 时 间 长 ， 可 以 证 明 其 运算 次 数 主 比 于 N2， 特 别 是 当 六 较 大 
上 由， 瑟 运 算 时 间 将 迅速 增长 , 以 至 于 无 法 接受 。 为 此 , 研究 离散 人 博 里 时 变换 的 快速 算法 (Fast 
Foticr Transform，FEFT) 是 非常 有 必要 的 。 









































13.4.3.2 ”快速 博 里 时 变换 的 C++ 实现 


下 十 的 代码 用 C++ 实现 了 图 像 的 二 维 快 速 傅 里 叶 变 换 : 
Fousier(LPSTR lpDIBBits, LONG ITWidth, LONG IHeight) 
人 





# 指向 源 图 像 的 指针 


unsigned chary jpSrc; 


f# 中 间 变 量 
Goufte 中 Te 


# 循 二 变量 
LONG 1 
LONG 让 


F 进行 傅 里 叶 变 换 的 赛 度 和 高 麻 《〈2 的 整数 次 方 ? 


LOMNG Wi 
JLONG h: 
int WwWBi 
jnt tp， 


六 图 像 每 行 的 字 节 数 
LONG 1LineBytes; 


1 计算 图 像 每 行 的 宁 节 数 
jLineBytes = WIDTHBYTESIEYVidth * 8); 


扩 赋 初 值 


WwW 一 


“50D，* 








= 守 
wWP = 必 ; 
hp = 心 


W 计算 进行 情 里 叶 变换 的 宽度 和 高 度 〈2 的 整数 次 方 ) 


whileftw *2<=1Wigth) 
{ 

几 一 了 

WPT+i 


whilefh * 2 <= 1Height) 
{ 

用 #= 2; 

hp++; 


# 分 配 内 存 
complexc<cdoubie> #+T 了 TD = new complex<doubie>[w *# 各; 


complex<dtouble> *FD = new cormmplex<double>[w *# 喇 ; 


# 行 
fotffi = 站 这 志 :证 ) 
[ 
4 列 
for( = 届 j < 加 ;HH) 
{ 
1 指向 DIB 第 i 行 ， 第 j 个 像素 的 指针 
]pSrtc = [unsigned char#)lpDIBRBits + ]LineBytes * (1Height - 1 - 阅 二 j; 


1 给 时 域 赋 值 
TDUD + 到 二 训 = complex<doubie>(SpSrch 0 


forfi = 白 ;1< Di i 计 + 
{ ， 
f 对 7 方向 进行 快速 傅 里 叶 变 换 
FFTI( 上 TD[w * 订 , 必 ED[w * 1 wP); 


1 保存 变换 结果 
“25T。 


* 92。 


for(i = 吕 ; ji< hi i++) 


| 


tr = 用 芝 W: 计 嫩 


[ 


TDP[L+hz*jj=FDI+y#i; 


forMi = 人 人 ii< i++) 





4/ 对 x 方 向 进行 快速 傅 里 叶 变换 
FFT(&TD[i* h], &&FD[i* h],hp): 


forti = 昌 ;1< hb; i++ 十 ) 


f 列 


ford = 0 j < w; j++) 


} 
几 行 
{ 
{ 
} 
] 


# 计算 频谱 
TIemp = sqrCFED[U  h + ijrealf ) 半 EDD*h 二 iTrealf ) 十 
RD *#hb+ilimagft siPDUY#h +iirnagr 力 7100; 


# 判断 是 否 超过 255 

ifdTentp > 255) 

{ 
1 对 于 超过 的 ， 直 接 设置 为 255 
Tetmp = 2593 


1 指向 DIB 第 fi<hy2 ? i+ty2 :i-h2) 行 ， 第 (<w22j+w2 :j-w/2 个 像素 的 指针 
# 此 处 不 直接 吏 1 和 ji 是 为 了 将 变换 后 的 原点 移 到 中 心 
站 PSrc = (unsigned cbar+ylpDIBBits + ]LineBytes*# (Height-  - 雪 十 j; 
]pSre = fnnsigned chary)lIpDIBEits + 1LineHBytes * 
0UHeight - 1 - (ichy2 ? ij+ty2 : ij-hj2)) + 0O<wA2 2 j+wfI :jw 


P 年 新 狐 图 像 
*{lpSrc) = (了 BYTEYdTemp)， 





# 肢 除 临时 变量 
delete 了 工 D; 
delete ED; 


# 返 后 
returm TRUE: 
} 


13.4.3.3 利用 Mideva 提供 Matrix<LIB> 数 学 库 实 现 快速 傅 里 时 变换 


要 在 Wisual C++ 开发 环境 下 使 用 Mideva 的 Matrix<LIB> C++ 数学 库 ， 必 须 在 开发 环境 中 
进行 一 系列 的 设置 。 在 调用 Matix<LIB> C++ 库 国 数 之 前 ， 首 先 要 用 冰 数 
initM(Matcom_VERSION) 来 初始 化 类 库 调 用 ， 并 用 exitM( ) 冰 数 来 结束 类 库 调 用 ， 即 应 在 相 
应 的 CPP 文件 中 加 入 下 列 伐 码 : 

initkMt(kMatcorm_YERSION); 
1 用 Matrix<LIB>C++ 库 明 数 的 调用 完成 矩阵 奉 作 
exit 》; 

当然 可 以 在 一 -个 类 的 构造 函数 中 添加 initM(Matcom_VERSION) 以 完成 类 库 的 初始 化 
工作 。 可 在 该 类 的 析 构 函数 中 添加 exitM( ) 以 完成 结束 类 库 调 用 的 工作 。 

具体 设置 详 见 第 7 章 。 需 要 指出 的 是 ， 如 果 开 发 的 项 目 中 同时 用 到 了 MATLAB 引擎 和 
Mideva 的 Matrix<Lib> C++ 数学 库 ， 编 译 的 时 候 会 提示 数据 类 型 定义 冲 罕 。 因 此 需要 收 改 
Mideva 的 Matrix<Lib> C++ 数学 库 的 冻 文件 matlibh， 修 改 后 的 头 文件 详 见 配 蔬 光 柄 。 

在 “ 频 域 变换 ” 沫 单项 下 添加 斩 为 “ID_FFT MIDEVA”，Caption 为 “快速 FFT 变换 ” 
的 子 菜单 ， 并 利用 ClassWizard 在 类 CDipDPoc 中 添加 函数 OnFftMidevaf ) 实 现 图 像 的 快速 傅 
里 叶 变换。 有 具体 代码 如 下 : 

void CDipDec2:OnPftbMadeval ) 
{ 
#P 杞 始 化 Matrix<LIB> 关 库 
initwfMatcom YERSIOMN TY 











RMm im _ imatBits， 
Z 读 取 图 像 数 据 
赂 -一 -人 
/图 像 指 针 为 室 ， 无 法 操作 返回 
这 m_pDibDbjecet == NULL) returni 





# 对 不 是 8 位 的 图 像 不 作 侍 何 操作 直接 返回 
im_PPibDbject->GetMNurmBits( ) := 3) 
f 

AfxMessageBox(" 目 前 只 支持 8% 伺 轩 像 的 处 理 ! 休 


IEtDtm， 


+ 253。 














# 著 取 图 像 宽 度 和 商 度 〈 以 像素 为 单位 ) 
im ntWith = mL_PDibDbjscet>GetwWidth( 
int nHeight = rm_PDibobject->GOetHeight 人 


8 定 尽 变量 

unsigned char *PpBuffer *PpBits; 
RGBQUAD *PPalette; 
intnwWidthBytes, nNumColors; 


# 获 得 图 像 指针 

pBuffer = fansigned char 拉 mm_pDibObject->OetDIBPointerl 必 nWidthBytcs， 
im_pDibDbiject->GetNumBits( 

ipBuffer == NULL ) teturn; 


1 获得 颜色 数 

mnNumCeolors = m_pDibObjieet->CetynmColorst 让 

# 绪 得 调 色 板 指针 

pPalette = (RGBQUAD*) pBufterfsizeoftBITMAPFILEHEADER) + sizeoffBITMAPHROHEADER 

# 获 得 位 图 数 拓 指针 

pPBits = (unsigned char *》 信 pBuffer[sizeoffBITMAPEFIHLEHEADER) + sizeofBITMAPINFROHEADER) 
+TmNumcColors * SizeofR 卫 总 UNADD)]; 


4 全 橡 数据 区 大 小 【 字 节 总 数 ) 
DWORD Sizelimage = mWidthBytes * nHeight 


7 创建 图 像 数 据 矩 阵 ， 放 将 其 元 素 初 始 值 庶 为 0 


mL_imatBits = zetosf ] ,SizeImage]; 


fj 默认 的 外 阵 娄 扫兴 型 是 double， 
/首先 将 失 转 换 为 unsigned char 型 ， 
# 以 值 用 memecpy 内 存 找 贝 命令 将 图 像 数 据 同 子 齐 连 


m_ matBits = muintgtm_rmatBits); 





1 通过 Matrix<LIB>C++ 库 的 addrf ) 冰 数 返回 矩阵 变量 前 内 在 指针， 以 完 丰 对 宙 阵 单元 的 访问 
4 于 memepy 内 存 拱 由 命令 将 图 父 数 据 岩 了 证 村 
Tneimmcpyfm_matBitsadrdrf ), PRBits, SizeImageyji 


8# 由 于 Mm 类 型 的 矩阵 是 按 先 列 乒 行 的 顺序 排列 ， 
1 在 此 用 reshaper ) 琢 数 将 创建 的 … 锥 抢 阵 m_matBits 变 维 为 nWidthBytesXnBeight 的 二 维 矩阵 
1 相 用 rot900) 表 数 将 一 维 矩阵 逆 时 针 旋 转 90” ， 将 秘 隆 变 为 nHieightxnWidtbBytes 的 二 维 放 阵 ， 
8 并 使 的 矩阵 的 第 nHeight 行 对 访 岁 像 数 据 的 第 一 行 束 拓 

“254 。 


mL_rmatBits = ret90(treshapeltm_matBits， BRWidthBytes, nHeighty 


# 厂 图像 帘 度 与 其 字 节 宽度 不 同 ， 
ji 串 将 出 系统 补 齐 的 每 行 学 节 数 为 4 的 整数 倍 的 各 列 昌 删除 ， 以 和 诚 小 息 阵 大 小 加 快 处理 速 接 
这 mWidthBytes != aWidth) 


{ 
8 相当 十 MATLAB 中 的 XXX:nwWidt 操 作 
mm_matBits = m_ matBitsfe_P, eolonf1，1,DWidthyy; 
} 


4 将 矩阵 由 unsigned char 型 转换 为 double 型 ， 以 便 进 行 适 算 
mu_ ratBits = Pdoubletm_rnatBits); 


关上 内存 解锁 

:GobalUalock(tm_pDibObject>GetDibht 轨 ; 
六-------------------------------------------------------------- 

KMm mgSize = sizetm_rmatBitsj; 

Hp 调用 Matrix<Lib>C++ 库 图 数 和 2() 完 成 二 维 离散 传 里 上 时 变换 
Mm 芷 = ff2tmn matBits); 

km matTransed = 许 ; - 

1 调用 Matrix<Lib>C++ 库 画 数 ffishiftf ) 将 频 域 中 心 物 到 矩阵 中 心 
任 = 从 shaft 让) 

HP 调 用 Matrix<Lib>C++ 库 函数 mabst ) 计 算 频 畜 

mmatiBits = Tabstt) 1 sqrttmSize Tt TD)#PnSize TCD) 



































1 传 辐 图 像 数 据 


j 让 一 


# 将 狂 阵 数据 范围 限定 于 《0 255) 
Im_matEBits = ttiabstrn_ maatBirs): 

KMmL = m_matBits > 255.0; 

ktm NotL = 1L; 

m_timatRBits = timestm_rmatBits, Not 十 工 253.0; 


1 将 矩阵 由 double 型 转换 为 unsigned char 型 ， 以 便 将 图 像 数据 赋予 矩阵 


IE_matBits = Innintgtrn_ImnatBitsh 


/站 0， 以 满足 BMP 图 像 对 行 宽 字 节 数 为 4 的 厚 数 倍 的 要 求 
int nTImP = (inbtetmtnVWidthy 4); 
int nPadding: 


iifmTrmp > 0 
* 253* 


nPadding =4 - nTmp; 
m_matBits = cat(2, m_matBits， 
repmat(muint8(0), (BR(size(m_matBits, 1)), nPadding))); 
else 
nPadding = 0; 
/对 和 阵 进行 转 置 操作 
m_matBits = rot90(m_matBits, -1); 


/将 图 像 数据 赋予 矩阵 


memcpy(PBits, m_matBits.addr( ), nWidthBytes * nHeight)*#*sizeof(unsigned char)); 


/内 存 解锁 


:GlobalUnlock(m_pDibObject->GetDib( )); 


UpdateAllViews(NULL); 


// 结 束 Matrix<LIB> 类 库 调 用 


eXxlitM( ); 
} 
编译 整个 项 目 文件 ， 运 行 生 成 的 EXE 文件 ， 先 打开 image 子 目录 下 的 Miss.bmp 图 像 文 
件 ， 如 图 13-19 所 示 。 然 后 单 击 “ 频 域 变 换 ” 菜 单 下 “快速 FFT 变换 ”， 可 以 实现 图 像 的 FFT 
变换 ， 结 果 如 图 13-20 所 示 。 


仿 加 TSS 了 本 了 
- 帮工 SS 了 而 卫 





图 13-19 ”打开 的 原始 图 像 图 13-20 图像 的 FFT 变换 结果 
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135 小 结 


本 章 综 台 了 前 面 各 章 所 学 的 知识 ， 制 作 了 一 个 小 型 的 铭 像 处 理 系统 。 图 像 处 理 功能 中 仅 
仅 实现 了 一 些 简 单 的 算法 。 希 望 有 兴趣 的 读者 ， 在 该 实例 的 基础 上 继续 完善 其 功能 ， 使 其 真 
正成 为 ， 款 优秀 的 图 像 处 理 软件 。 读者 可 自由 使 用 本 光盘 提供 的 所 有 资源 ， 若 发 现 Bug 或 对 
源 代 码 有 好 的 修改 建议 ， 请 用 电子 邮件 和 作者 联系 。 
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附 孙 A 钊 见 的 免费 MATLAB 工具 箱 


1，SDLC Morphology Toolbox for MATLAB 

数学 形态 学 工具 箱 ， 在 图 像 处 理 中 应 用 广泛 ， 包 括 图 像 分 制 、 非 线性 滤波 、 模 式 识 别 和 
图 像 分 析 等 内 容 。 

http:Ywww.mmorpheeony 





2，Camera Calibration Toolbox for MATLAB 
相机 标定 工具 箱 ， 可 在 Windows、Unixz 和 Linux 坏 境 十 运行 。 
http:7www,vislon.caltech.eduybouguetjAcalib_docr 


3 Speech Processing Tooibox for MATILAB 

声音 处 理工 具 箱 ,包括 声音 叉 件 和 输入/ 输出、 声音 人 台 成 、 声音 增强 、 声 音 分 析 、 声 音 识 别 、 
声音 编码 等 。 

http:Awww.ee:ic.ac.Ukfhpyrstafftpdmbyvojceboxfrvoicebox,htmj 


























4，Statistical Pattern Recogrnition Toolbox tof MATLADB 
统计 模式 识别 工具 箱 ， 包 含 用 户 手册 和 例 程 上 载 等 内 容 。 


http:Aemp. 起 人 ,cvut,czf~xfrancvAstprtooM 

















5 MATLAB and 已 Radar Joolbox 
雷达 信号 处 理工 具 箱 。 
http:AwwwTradarworks.comysattware.htm 


























右 ，FIR Filter 避 ptiimization Tootbox for MATLAB 
FIR 滤波 器 优化 工具 箱 。 
http:7Pwww.csee'tmbc.edu/~dschel27opt.html 


7，GPS Software Toolbox for MATLAB 
GPS 于 具 箱 。 
http:7Awww.navtechgbs.comysupbplyAgps_toolbox.asp 





83，Computer Yision Joolbox for MATILAE 
计算 机 视觉 工 上 其 箱 。 


http:wAwww,icg.tu-graz,ac.atfresearchyComputerVision/icg_Visiontoaols 


和 ，Dirnensional Analysis Tooibox for MATILAS 
多 维 分 析 工 具 箱 。 


http:Awww.shrs.net 
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附录 B 常用 的 MATLAB 免费 站 点 


国外 站 点 : 

ea MathWorks 公司 主页 :http:Wwwwwmathworks.com 

es MATITLAB fle exchange: http:Awwwmathworks.cormmmatlabcentral/fileexchange/ 
此 界 各 地 的 MATLAB 编程 爱好 者 提供 的 各 种 MATLAB 冰 数 , 有 很 强 的 实用 价值 

se MATILAB 中 心 ，http:wwww.mathworks.cormmatlabecentraly 

包括 了 MATILAB 新 闻 组 ，MATLAB 程序 大 赛 与 文件 交换 中 心 等 页 击 

se。 德国 的 一 个 M 文件 数据 库 : http:wmatlabdb.mathematik.uni-stnttgart.deyindex.jsps ) 

a MathTool 站 点 : http:WAwww.mathtools.netMATLAB/index,html 
有 很 多 好 的 工具 箱 或 者 小 的 稍 却 数 























国内 中 文 站 点 : 

sa 恒 润 科技 ，http:wwwwhirain.comy MathyWorks 公司 的 MATLAB 国内 独家 代 地 内 

ea MAILAB 大 疯 园 : http:pmatlab.myrice.comy 

es 中 国学 本 交流 园地 : http:Awwwmatwav comyresourcemewjk.asp 

a 仿真 论坛 MATLABE 版 ，http:Awww.sitmmwe,comycgi-biarutboard_showcgi?id=19 必 ge=30 
es。 动力 学 控制 论坛 工程 数学 软件 版 ， http:Awww,dytrol.comyindex.asp 

sa 研 汪 论坛 MATLAB 版 :http:Abbs.matwavcoryindex.isp 

se MATLAB 话 言 必 应 用 : http'Wsh.netsh_eomybbs151867/ 

se 中 科大 AIAM 数 竺 和 具 论 坛 :， http:wmcemustc.edu.cnforumindex.pbp 





国内 大 学 BBS: 

e 水 木 清 华 MathTools 路 : http:Awww-smth.orgy 

se 哈工大 蛇 了 丁香 MATITLASB 版 ，http:/Abbs.hit.edu.cmy 

se 上 海 交 大 饮水 思源 MathTools 版 : http:Wpbs sjmaeduen 
s 洽 海 星云 ; http:Afbbsustc.edu.cny 
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